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AVEC 


LA REVUE DES UTILISATEURS 


DEMO 5,TO 7,10 7/70 
APPRIVOISEZ EXPLOREZ PROGRAMMEZ 
VOTRE L'UNIVERS VOTRE MICRO 
THOMSON DE VOTRE THOMSON 

; MO 5-TO 7 
dées, é Hobb 
sl sp rue T0 7/70 Po tai, 
recettes pour . petits et grands, 
comprendre votre en Logiciels, fanatiques ou même 
ordinateur, son périphériques, encore débutants, 


anatomie, son 
fonctionnement, sa 
programmation et 
exploiter ses 
capacités 
graphiques et 
sonores. 


langages, toute 
l'actualité des 
ordinateurs 
Thomson au 
rendez-vous de 
MICROTOM. 


BULLETIN D’'ABONNEMENT à retourner à 


MICROTOM - Service Abonnements 
5, place du Colonel-Fabien 75491 PARIS Cedex 10 
O Je désire m'abonner au prix avantageux de 134 FF ttc pour 6 numéros (188 FF étranger, 240 FF par avion). 


dans chaque numéro 


de MICROTOM 
une palette de 


programmes de tous 


niveaux (jeux, 
utilitaires, 
pédagogiques, 
etc.). 











IMP. 
LES CHOIS. 
LES BRANC 







15 LOGICIELS 
SUR LE GRILL. 


Je réalise ainsi une économie de 20% sur le prix de vente au numéro. 
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TRANS"BASIC 


Le Basic comme le langage humain évolue, Depuis les débuts de la micro- 
informatique, chaque micro-ordinateur a développé son propre dialecte 
Basic, son « patois ». Si, dans la grande majorité des instructions, les 
variantes ne sont que très légères, il n'est pas aisé de reconnaître la signi- 
fication de certaines instructions spécifiques à une machine, Ce « guide » 
a pour but de vous aider à adapter à votre ordinateur des programmes 
Basic écrits pour un autre ordinateur, Nous avons pour cela sélectionné 
les micro-ordinateurs les plus répandus, et disséqué leur Basic. 

Ces tableaux vous serviront non seulement de dictionnaire syntaxique de 
vos instructions Basic, mais aussi de table de traduction des différents 
ordres d'un micro-ordinateur à un autre, Attention donc, un Basic peut 
en cacher un autre... 


TABLE DÉCROISÉE 


Certaines adresses étant spécifiques à une machine, ce tableau vous permet de retrouver, par micro-ordinateur, à quel ordre 
Basic Microsoft elles correspondent. Il complète donc celui présenté dans les pages suivantes. 


SINCLAIR QL 
= CHAIN 


COLOR 
POS 


Oric 1 et Atmos 
GET, KEYS + INKEYS 
IN -L0G 
CURSET = PLOT 


EXL 100 ER 
-AUTO 
= FIX Canon X07 
CALL CLEANUP -CL$ -PLOT 


T1 99/4A 

= AUTO 
“+ CLOAD 
CLS 

+ CONT 
+ RENUM 
=TROFF 
+TRON 


Thomson MO 5, TO 7/70 

COLOR alu 
Vic 20 

HOME = CALL 


ë # CLEAR 
Les fenêtres ne sont pas transportables sauf sur QL. LINKEYS 


Commodore 64 
m CLEAR 
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ABS à CHAIN 






AUTO {n° ligne vs adr | CHAIÏN « nom 
début} {pas [var] (prog » [n° ligne] 


CHAIN « nom 
programme » | 


LE is Ro LEO AND 2 en. RUN «C:5 

re NET 5 Te ANag | Non wo 1e FE CALL odr far] CHAIN enom 

début, pos] programme » 

ABS{org] A0 ASCTcha AIN(org) RUN « RAM 

CANON X 07 binaire nom fichier » 
LE Ar So ASC{chai) ATN{ore} 7 Slad) 








Fe; ab HET ET E 
is 













a 28 ENS LME PÉTRU | 








» CAL adr 
























"ASCchai) ASN(arg) ATN{arg) | NUM fn j ® ligne | CALL nom du 
ot Lpas] a de 


ne TER LCR Ah) GG PORT md 

| Ébbetrs début) [pos] | routine param} | 

ABS{arg} ASClchoi} - AIN{or) CALL adr | CLOAD « nom 

ORIC ATMOS «programme» ; | 

Bo bei 

en } ASC{chai) AU ur RUN, MERGE. 

2 el es a ” " 

€ NOM prog » 
ABS{org) ASC{chai) ATN{arg) | NUM {n° ligne 
début [;pos]] 

ABS{org) AND ASC(chai) ATN(arg) | AUTO {n° ligne: CHAIN « nom 
Pa . début ,posl programme » 
ABS{are) à AG) AND CODE{chai) :LET vor= 

USR{adr) 











































NB. 2X 81 n'ul- 
lise pas ASCII 





men rés De 8 RARE 
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A TP RER RER EE 


TRANS'BASIC 


CHRS à CSAVE 
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TRANS'BASIC | 


DATA à FIX 


? GE 


sd ME 10) 











TRANS'BASIC 


FLASH à INPUT # 


. e | IFap THEN PUR INTER 
RE ul , pu nl ad 





(D 


GOSUB {n° lgnd GOIO | 


l 
exp 
FRE GOSUB n° 
x ar IR, “hi 


We 

+ SE pi 
| HE 

es h AAA 


d à var var 
| 3 ë exp ep | 
var var 
r sp me. — 
£ Hi | 


? v 

PE 
#1 ' 
FS 





: | SR 
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TRANS'BASIC 


INSTR à LLIST 


INSTRUgl | 
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LOAD à ON/GOSUB 


erTeur ie 
NEW NEXT [var] ON var GOSUB 
n° lignel 
{n° igne. . 


LOAD « nom MIDS(choin, NEXT [var] | ON ERROR | ON var GOSUB 
fichier » début, [longueur] GOTO n° ligne Lu lignel 
cossette pl 
Fe om | LOG(ep) FE in, | MIN{vor, vor = argl 
ai g var...) MOD arg2 
| RENAME ancien 


so] | ; | | | à + 
LOAD « nom IN{exp) MID Thon, var = argl | OPEN 18,15. 
fichier » début [ longueur]) MOD arg2 | «RO: noml = 
(idem cassette) nom? » 


NEXT [var] pi EE JON 1e GOSUR 
vor 
es n° lignel[n° ligne2- 
NEXT [vor...] ne ERROR | ON exp GOSUB 
n°ligne| n° et 
{nf 


LOAD « nom Foi aes var = orgl 
fich » et N.B. début, [longueur] MOD arg2 


… MIDS( var = argl 


MOD arg2 


NEW 


NEXT far.] ON var COGUS 
n° lignel 
{n° ligne2... 


NEW | NEXT fr. 


| — Nes) DS a 
{LOG = décimal début, | longueur] 

CLOAD EN{exp) ar 
{LOG = décimal {longueur]| 

cu DS{chain, 
dé, | (longueur 


MID su ra 


Sen 
début, [longueur] 


NEW 


vor = argl 
MOD arg2 


vor = 
MOD ci 


| É Se 
(He <* Ê 
= ae 
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ON/GOTO à PRINT USING 


RU a As LEUN N [ON vor GOTO 
E (Tandy MC 10} n° ligne] {/li- 
gne2... 


ON exp GOTO su OUT adrexp PLOT xy sa FOIE adrexp : 
KE ne À 
gne2... 4 


BPUT4 CI 
Fe ds 
inverse) 


Emanuel:PLOT 
OUT adrexp | PEEK{adr) 


Pre 8 OT Eu) 

RE PORE XX voleur CURE pote ONE 
ue noi NB. PLOT œunel 
D : 
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RANDOMIZE à SAVE 


RESUME 
{n° ligne] 





naueu 


RENUNBER RESON _. ONEMOROE| HU [RIGHT a 
Huit | el [pos] longueu 
THEM RESUME Fa 
commentaire {n° ligne 
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SCRN à STR$ 





# 
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SWAP à WIDTH 
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VOYAGE 
DANS 
LA 3° DIMENSION 


3D animera pour vous dans l'espace 

tout objet préalablement créé, 

grâce à des commandes de rotation, 

de translation, de zoom et de mémorisation. 











haque objet est défini par ses coordonnées 
{(X, Y, Z) dans un repère en trois dimensions 
lui-même disposé par rapport à l'écran par ses coor- 
données planes (X, Y). Chaque point peut être relié 
au précédent afin de tracer une ligne (1 pour tracer, 
0 pour allumer le point simplement). 
Les objets ainsi créés peuvent : 
— tourner autour des axes oX, oY ou oZ (comman- 
des X, Y, Z); 
— être agrandis ou réduits (commandes +, —) ; 
— se déplacer sur l'écran (commandes |, J, K, M). 
L'incrémentation de chaque fonction peut être modi- 
fiée par la commande 2, l'écran effacé ou pas après 
chaque dessin (commande à bascule 1). 
Par l'enregistrement d'une séquence de cent com- 
mandes au plus (commande SPACE), une certaine 
animation est ainsi réalisée au moment de sa resti- 
tution (commande E). 
Les fonctions principales sont affichées par un menu 
qui parle de lui-même : Création d'une figure, Visua- 
lisation, Correction, Aide et Fin. 
Enfin, voici les coordonnées d'un « objet » en seize 
points pour vous faire la main: (—5,-5,5,0) 
(—5,5,51) (—-5,5,-5,1) (-5,-5,-5,1) (—-5,-5,5,1) 
(5,—5,5,1) (5,5,5,1) (5,5,—5,1) (5,-5,-5,1) (5,—5,5,1) 
(—5,-5,-5,0) (5,-5,-5,1) (—-5,5,-5,0) (5,5,—5,1) 
(—-5,5,5,0) (5,5:5,1). 


Eric Canovas 
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REM Instructions à adapter listées ligne 1440 
REM 
REM (c) Eric CANOVAS 
REM 
REM * Houcle menu * 
CLS 
PRINT TAB(19)"3D" 
PRINT 
PRINT'"'La 3ème dimension sur votre écran ..." 
108 DIM X(100),Y(10@0) ,Z (180) ,X@(100) ,Y@(1@0) ,Z@(10 
2) ,P (100) ,E(100) 
110 N=0 
REM Menu 
PRINT 
PRINT TAB(1@)'"Les options :" 
PRINT 
FRINT"(1) Création d'une figure" 
FRINT"(2) Visualisation" 
PRINT"(3) Correction" 
FRINT'(4) Aide" 
PRINT"(5) Fin" 
INPUT" (1)-(S) "3R 
IF R<1 OR R>5 THEN 210 
IF R=1 THEN GOSUR 539 
IF R=2 AND N<>0 THEN GOSUB 510 
IF R=3 AND N€>O THEN GOSUB 1000 
IF R=4 THEN GOSUEB 121@ 
CLS 
1F R<>S5 THEN 130 
END 
REM * Sous-prgms * 
REM 
REM (1) Création 
CLS 
PRINT'"'Option Création de figure :" 
PRINT 
INPUT'"'Nombre de points "i;N 
INFUT"Origine du repère X,Y ";0,00 
FOR I=1 TON 
CLS 
FRINT"'Option Création de figure :" 
PRINT 
PRINT"Vecteur no";13"  " 
INPUT'X "s;X(I) 
INPUT'Y "3 V(CI) 
INPUT"Z "3Z(1) 
INPUT"Trace avec précedent @/1 ";P(1) 
NEXT I : 
RETURN 
REM 
REM (2) Visu 
CLS 


* K=74 THEN O=0-RG 
K=75 THEN O0=0+RQ 
 K=48 THEN A=0:B=@:C=0 
K=49 THEN V=-(V=0) 
<=50 THEN GOSUB 88Q 
K<>893 THEN 540 


FRINT'"Incréments :" 
PRINT 
INFPUT'"'Rotation X : 
INFUT"'Rotation Y : 
INFUT"Rotation Z : 
INFUT'"Echelle : 
INFUT'Mvt repère : ";RQ 
Val 
RETURN 
REM 
REM (3) Correction 
1000 FOR I=1 TO N 
191Q CLS 
1020 FRINT'"Option correction de vecteurs :" 
10350 PRINT 
1040 PRINT"C=corrige S=stop" 
1250 PRINT 
106 PRINT" T x Y 2” 
107G FRINT P(I) TAB(6) X(1) TAB(11) Y(I) TAB{16) Z 
(1) 
1080 INFUT K$ 
1090 IF K$="C" THEN GOSUB 1130 
1100 1F K$="S" THEN I=N 
111Q NEXT I 
1120 RETURN 
1130 FRINT 
1148 INFUT®X "3; XI) 
1150 INPUT"Y "3Y(I) 
1160 INFUT"Z "3Z(1) 
117Q INPUT'T "3P(1I) 
1180 RETURN 
1190 REM 
1200 REM (4) Aide 
121@ CLS 
1220 PRINT'"'Quelques explications..." 
123Q PRINT , 
1240 PRINT'Les commandes :" 
1250 FRINT"'X : rotation du repère par rapport à OX 


1260 FRINT"Y : ne OY 


“ 


1270 FRINT"Z : OZ 


1280 FRINT"'A,B,C : idem mais sens inverse" 

1290 PRINT 

1300 PFRINT'"'I,J,K,M : déplace le repère" 

1310 PRINT'"'+- : zoom avant et arrière" 

132Q PRINT"O : remet la figure en position zéro“ 
1330 FRINT"1 : bascule effaçant où pas l'écran" 
1340 PRINT"2 : modification des incréments" 

1350 PRINT 

136@ FRINT" espace : enregistre la dernière foncti 
on" 

1370 PFRINT'E : restitue l'enregistrement" 

1380 PRINT 

1390 FRINT"'S : pour sortir d'une option" 

1400 FRINT 

1410 FRINT"'<RETURN> pour continuer" 

1420 K$=INKEYS:IF K#<>CHR$S (13) THEN 1420 

1430 RETURN 

1440 REM Adaptation 

1450 REM 

1460 REM LINE (X1,Y1)—-(X2,Y2) : trace une droite d 
u point (X1,Y1) au point (X2,Y2) 

1470 REM PSET(X,Y) : allume le point de coordonnée 
s X et Y 

1480 REM origine de l'écran en haut à gauche LC: 


D= 1: A=D: B=Q: C=Q:E=0:J=0: M=Q: K=D: V= 1 
P1=3.141592: A@=P1/8: BO=AG: CO=AOG: EU= 1: RG=10 

IF V=i THEN CLS 

LOCATE 1,1:PFRINT'"+- XYZABC IJKM QD 1 2 S SPC E 


FOR 1=1 TO N 

XO=X (1) COS (A) COS CH) +Y (I) #SIN(A)-ZCI)XSIN(EB) 
YO=Y (1) *COS (A) *COS (C) +Z (I) #SIN(C)-X(I)XSIN(A) 
ZO=Z (1) *COS(E) COS (OC) +X (I) #SIN(R)-Y (I) xSTN(C) 
X1=X: X=Dx(X2-YOxSIN(PI/5) )+0 
Yi=Y:Y=248-D*x(Z0-Y@*xCOS (F1/5) )-00 

IF P(I)=1 THEN LINE (X1,Y1)-(X,Y) ELSE FSET(X, 


NEXT I! 
IF K<>32 AND K<2>69 THEN L=K 
IF Ex1 THEN M=M+1:K=E (M) :GOTO 670 
K$=INKEY#: IF LENCK#)=0 THEN K=Q ELSE K=ASC(K#) 
M=J THEN E=0:J=0:M=0Q 
K=Q THEN 650 
K=52 THEN J=J-(J<100):E(J)=L 
K=69 AND J>@ THEN E=1:M=Q 
K=43 THEN D=D+E0 
K=45 THEN D=D-EQ 
K=88 THEN C=C+C0 
K=65 THEN C=C-CO 
K=89 THEN B=EB+B0 
K=é66 THEN E=B-B0@ 
K=90 THEN A=A+AQ 
K=67 THEN A=A-AG 
K=73 THEN 00=00+R@ 
K=77 THEN 0W=00-R0 
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LA GÉNÉALOGIE 
A LA PORTÉE 
_ DE TOUS 


Votre arbre ancestral 
commence à se couvrir 
de nombreuses feuilles ? k 
Le programme Généalogie arrive à point 
pour vous aïder à le feuilleter. 

Diverses options sont à votre disposition (expliquées 
par la commande « ? »}, mais sachez que le premier appel | 

à l'une d'entre elles garnit la feuille de l'arbre en question]. 

et que les appels suivants vous promènent 

sur la branche considérée, 41 8 9T7 Denys Schmitt mi 






REM Arbre généalogique 

REM D,Schmitt S5-1985 

REM Instructions spécifiques à adapter listées 
2010 

GOSUB 1120 

GOSUE 1270 

Z+="Option (?7,P,M,C,E,N,K,R,I,L,S,F) ":GOSUB 12 


K=EM(L) :GOSUE 146@:P=N: GOSUB 1390 
NEXT L:K=KM:GOTO 50 


IF M>=Q THEN K=M:GO0TO 50 

Z$="Nom de la mère “:GOSUR 1230 

IF X$="" OR N>199 THEN 40 

NEN+1: NS (N)=X$: F$ (N)="EQ"+STRS (K) 

MEN: PF CK)=P# (K) +"MU4+STRS (N) 

IF P>@ THEN 50 

P$(N)=PS# (N) +"C"+STRE (P) 2 PSP) =PS$ (P)+"C'4STRSE CN 


IF X#="P" THEN 210 
IF X$="M" THEN 340 
IF X$="C" THEN 470 

X$="E" THEN 

X#='"N" THEN 

+= THEN 

: THEN 
 X$="]" 

X$="L" GOSUE 1620:G0T0 50Q 
X+="S" 1700 
X$="F" FRINT'"Terminé":END 
X#="7" 


KM=K:KI=P:KF=N: GOSUB 1070 

FOR L=Q TO 9:1F EM(L)<Q THEN 44@ 
K=EM(L) :GOSUB 1460:M=N: GOSUB 1390 
NEXT L:K=KM:GOTO 50 


: Conjoint 

IF C>=Q@ THEN K=C:GOTO 5Q 

Z$="Nom du conjoint ":GOSUB 1230 

IF X$="" OR N>199 THEN 60 

XM$=XS# 

Z$="Nom courant=père où mère (P/M) ":GOSUB 12 


EN K=P:GOTO 50Q 
Z$="Nom du père "“:GO0SUB 1230 
IF X#="" OR N>199 THEN 6@ 
NEN+ 1: NE (ND =X$: FPS (N)="ED"+STRE(K) 
PEN: PK) =PS (K) +"PU4STRE (N) 
IF MSQ THEN 50@ 
F'$ CN) =P$ (N) +UC'U4STRE (M) 2 FPS (M) =PS (M) +"CU4STRE (N 


IF X$="F" THEN Z$="M":G6G0TO 550 

IF X#$="M" THEN Z$="P":GOTO 550 

GOTO 50 

NEN+1: NS CN) =XM#: P$ CN) ="C'4STRE (K) 
CN: F$CK)=P#CK)+"C"+STRSE (N) 

FOR 1=Q TO 9:1F E(I1)<@ THEN 600 

F# (N) =F# (N) +"E"+CHRS# (4841) +STRS#(E(1)) 
F#(ECI))=P#(E(I))+Z#+STRS(N) 


KM=K:KI=M:KF=N: GOSUB 1070 
FOR L=Q TO 9:1F EM(L)<@ THEN 3 





SPÉCIAL PROGRAMMES 
L'OI 77HS DÉCEMBRE 1985 








68@ NEXT 1:GOTO 50 
61 
620 : REM 
63@ Zt="Indice de l'enfant ":GOSUE 1230 
640 1F X+="" THEN 60 
650 I1=VAL(XH):1F I1<Q OR 1>9 THEN 60 
660 IF E(I1)>=0 THEN K=E(1):GOT0 50 
670 Z+="Nom de l'enfant ":GOSUE 1230 
680 IF X$="" OR N>199 THEN 60 
670 XM#=X#: À 
700 Z$="Nom courant=père où mère (F/M) ":GOSUE 12 
30 
710 IF X$="FP" THEN Z$="M" : GOTO 740 
720 1F X+="M" THEN Z$="F" :GOTO 740 
730 GOTO 50 
740 N=N+1: NS (N)=XM#: P# CN) =X#+STRE (K) 
75Q ECI)=N:P# UK) =P# CK) +"E4+CHRE (AB+I) +STRE (N) 
760 IF C<A THEN 50 
77@ P$(N)=P# CN) +ZHF+STR#(C) :F#(C) =P#(C) +"E"+CHR# (48 
+1) +STRE (N) 
GOTO 50 


Zt="lndice maxi="+STR#(N)+" ":GOSUB 1230:GO0OT0 


Option K 

Zt="Indice à afficher (actuel="+STR#&(K)+") ":6G 
OSUR 123 
850 I1=VAL(X#):1F 1<Q OK I>N THEN 60 
860 K=1:G0T0 50 
870 
880 
990 FRINT T#,T#:PFRINT"'Nom à modifier :" 
900 PRINT"  "sN#CK): PRINT: INPUT X# 
910 NH(KH)=X#:GOTO0 5Q 
92 
950 
940 Zt="Indice enfant à changer ":GOSUR 1230 
950 1F X$f="" THEN 60Q 
960 I=VAL(X#):IF 1<Q OR 1>9 THEN 60 
97Q IF E(I1)<0 THEN 6@ 
980 2+="Nouvel indice pour “"+X$+" ":GOSUB 1230 
990 IF X+="" THEN 60 
1000 ,J=VAL(X#):1F I=J THEN 1780 
1010 IF J<O@ OR J>9 OR E(J)>=0 THEN 60 
102 E(J)=E(1):E(1)=-1:GOSUB 1390 
1030 IF C<Q THEN 50 
1040 KM=K:KI=K:KF=C: GOSUR 1076: GO0OT0 50 
1050 : 
1060 : 
1070 K=KI:GOSUB 1460:FOR I1=Q TO 9:EM(I)=<E(I):NEXT 
I 
1080 K=KF:GOSUB 1460:FOR 1=0 TO 9:E(I)=EM(I): NEXT 


GOSUR 1390:H=KM: RETURN 


Initialisation 
CLS:DIM Nt(200) ,F#+(200) 
N=-1:K=0:GOSUE 1200 
T#$="":FOR 1=0 TO SO: T#H=T$+" "eNEXT I 
PRINT: GOSUR 1620 
IF N>=Q THEN RETURN 
PRINT:Z#$="Premier nom "“:GOSUB 1270 
Nt(QD)=X$:P#(0)="":N=D: RETURN 


P=-j:M=-1:C=-1:FOR I1=0 TO 9:E(I1)=-1:NEXT I:RE 


FRINT'Père : "331F F>=0 THEN PRINT N#(F); 
PRINT:PRINT"'Mère : "3:1F M>=0 THEN FRINT N$(M 


PRINT:PRINT:FOR 1=0 TO 39:PRINT"-";:NEXT I 
PRINT N#(K) 
FOR 1=0 TO 39:PRINT "-"3:NEXT I 
PRINT:PRINT"Conjoint : ":21F C>=Q THEN PRINT 
N$ (C) 3 
1340 PRINT:PRINT"'Enfants : ":PRINT 





1350 FOR 1=0 TO 9:1F E(1)>=0 THEN FRINT 1;"-";N#$(E 
(1)) 

1360 NEXT 1:RETURN 

1370 : 

1380 : REMESES ant te SPHONENCE AE VECSERS 

1390 X$="":IF P>=Q THEN X$="F"+STRS (P) 

1400 IF M>=Q THEN X$=X$+"M'+STRS (M) 

1410 IF C>=0 THEN X#=X#+"C"+STRS# (C) 

1420 FOR I=0 TO 9:IF E(I)>=Q THEN X#$=X#$+"E"+CHRS# (4 
B+I1)+STR$S(E(1)) 

1430 NEXT 1:P#(K)=X#: RETURN 

1440 : 

LOUE : EM Décodagu--"---s"s"-#’-’…-.-v"urere 

1460 GOSUR 1200: X$=P$ (K) : Z=Q: 1=D:J=LEN(X#):1F J=0 

THEN RETURN 

1470 I=I+1:1F 1>J THEN 1510 

148Q Z#+=MID#(XH,I,1):1F Z$="" THEN 1470 

1490 X=ASC(Z#):IF (X>47 AND X<58) OR X=32 THEN 147 
a 

1500 IF Z=0 THEN Z=1:Y#=2#:Y=1: GOTO 1470 

1510 IF Z-Q THEN RETURN 

1520 Z=0:1F Y+i>=1 THEN 1470Q 

1530 IF Y#$="P" THEN F=VAL(MID#H(X#,Y+1,1-Y-1) ) : GOTO 
1480 

1540 IF Y$="M" THEN M=VAL(MID#(X#,Y+1,1-Y-1) ) : GOTO 
1480 

1550 1F Y$="C" THEN C=VAL(MID#(X$,Y+1,1-Y—1) ):GOTO 
1480 

1560 IF Y#$<>"E" THEN 1580 

1570 Y#=MIDY(XE, V4, 1): Z$=MIDE(XS,Y+2,1-Y-2) :E (VAL 
(Y#))=VAL (Z#) 

1580 IF I>J TMEN RETURN 

1590 GOTO 1480 


1600 : 

1610 : RENE EN Le tGur emaite 

1620 Z$="Fichier à relire ": GOSUR 1250 
163@ 1F X$="" THEN RETURN 


1644Q OPEN X$ FOR INPUT AS #2 

165Q INFUTHZ,N 

166@ FOR I1=0 TO N:INPUTH2,N# (I) ,F#(1) 
1470 NEXT I1:CLOSE:K=0:RETURN 


1680 : 

1690 : RAP EN Sauvegar de--------- 
1700 2$="Fichier à sauver ":GOSUR 12350 
1710 IF X$#="" THEN 50 


1720 OFEN X$ FOR OUTFUT AS #2 

17350 WRITE#2,N 

1740 FOR 1=Q TO N:WRITE#Z2,N# (1) ,F#(1) 
175Q NEXT I1:CLOSE:GOTO 50 

1760 : 

1770 : FREM ere Cote tie emememenmete 
1780 KM=K:KI=k:KF=-1:1F CixQ THEN KF=C 
1790 Z$="Nom courant=père où mère  (F/M) “:GOSUER 
1230 
1800 IF X+="P" THEN 1830 

1810 IF X "M" THEN 60 

1820 KF=K:KI=-1:1F C>=<0 THEN. KI=C 

1850 FOR 1=0 TO 9:EM(I)“E(I):NEXT I 

1840 FOR L=Q TO 9:1F EM(L)<Q THEN 1860 

1850 K=EM(L):G0SUR 146@:P=KI:M=KF:GOSUR 1390 
1860 NEXT L:K=KM:GOTO 5@ 









1970 : 

1380 : HEME rpre ROLL CRE LL EEE mes arm een 
1890 PRINT" Explication des options'":PRINT 
1900 FKINT" ? Aide" 

1910 FRINT" F,M,C Fassage au père/mère/conjoint" 
1920 FRINT"' E Fassage à un enfant (@-9)" 

1930 FRINT" N Indice maxi en mémoire" 

1940 PRINT" K Passage à un indice donné" 

1950 FRINT" R Modification d'un nom" 

1960 PRINT" I Changement d'indice d'un enfant" 
1970 PRINT" où correction en cas d'erreur si 


mème indice" . 

1980 FRINT" L,S Lecture/Sauvegarde d'un fichier" 
1990 FRINT" F Fin":PRINT:PRINT'"'Presser RETURN"; 
2000 INPUT X$:G0T0 50 

2010 REM ligne 1640 : ouverture du fichier X$ pour 
lecture en mémoire 

2020 REM ligne 1720 : ouverture du fichier X$ pour 
écriture sur disque 

2030 REM CLOSE : fermeture des fichiers 

2040 REM WRITE# : écriture séquentielle sur disque 
avec séparation des élements 


SPÉCIAL PROGRAMMES 
L'OI 77HS DÉCEMBRE 1985 














EXPLORATION 
A LA RAME 








vous circulerez dans ces modernes catacombes avec la facilité d’une puce 
sur le dos d’un chien. 
Peu de choses à dire sur la mise en œuvre, si ce n'est que le choix 
de la valeur de changement vous permet de jouer sur la rapidité du trajet, 


nt tt tanins Patententatentthnntiensty MN 


leur valeur étant justement en nombre de stations équivalentes, 


Augustin Garcia 
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18 CLS:PRINT TAB(30)"-—- METRO --":PRINT: PRINT: CL 

EAR 2000:DEFINT A-Z 

20 RESTORE:READ NL,NS 

38 TAILLE=NL+NS 

49 DIM NOM$(TAILLE+1) ,COR$ (TAILLE) ,VISITE(TAILLE), 

CO(TAILLE) 

5 1=1:L=1:NCO=0 

60 READ A$:1F A$="FIN" THEN 90 

70 I=1+1:1F ASC(A$)=42 THEN NCO=NCO+1 : CO (NCO)=1:A$ 

=MID$(A$,2) 

82 NOM$(I1)=A$:GOTO 60 

90 1=1+1:L=L+1:1F L<=NL THEN 60 

100 FOR Si=2 TO NCO:C1=CO0(S1):FOR S2=1 TO S1-1 

110 C2=C0(82):1F NOM$(C1)=NOM#(C2) THEN COR$(C1)=C 

OR$ (C1) +CHR$S (INT (C2/256) )+CHR$(C2 MOD 256) : COR$ (C2 
)=COR$ (C2) +CHR$ (INT (C1/256) )+CHR#& (C1 MOD 256) 

120 NEXT S2,S1 

130 MAXPT=2*NC0: DIM PTR(MAXPT) ,FARS$ (MAXPT) ,ATT (MAX 

FT) 

140 INFUT'Station de départ ";5S# 

150 GOSUB 49Q:1F S=0 THEN 140@ 

169 DEP=S: PRINT 

170 INFUT'Station d'arrivée ";5# 

180 GOSUE 490:1F S=Q THEN 170 

190 ARI=S:1F DEF=ARI THEN PRINT'"'Allez faire un tou 

r ... Et revenez'":PRINT'"quand vous aurez les idées 
claires.":GOTO 140 

200 PRINT 

210 INFUT"Valeur d'un changement “;VCH: IF VCH<Q TH 

EN 210 

220 PRINT:FOR I=1 TO NCO:VISITE(CO(I))=@:NEXT 1:F0 

R I=1 TO MAXPFT:ATT(I)=Q:NEXT 1: 

230 NFTR=2:PTR (1) =DEP: PTR (2) =-DEF 3: NST=Q 

240 D$=CHR$ (INT (DEP/256) )+CHR#(DEF MOD 256) :FAR# (1 
)=D#$+CHRS# (0) : PAR$ (2) =D$+CHR# (2) 

250 REM boucle de recherche 

260 FOR F=1 TO NETR:IF ATT(F)<>@ THEN ATT(P)=ATT(F 
)-1:GOT0 350 

270 S=ABS (PFTR(F)):1F LEN(NOM#(S))=Q THEN ATT(F)=10 

00:GOTO 350 

260 IF S=ARI THEN 5370 

290 IF LEN(COR#(S))=Q THEN 340 

300 C$=COR#(S):FOR I=i TO LEN(C#) STEF 2:T=ASC (MID 

H(CH,1,1))#256+ASC(MID#(CH,1+1,1)):1F VISITE(T)=1 

THEN 330 

310 NPTRENPTR# 1: PTR(NPTR) =T+1:PARS$ (NPTR) =FAR# (P) +0 
HRECINT(T/256))+CHR#(T MOD 256) +CHR$(@) : ATT (NPTR) = 

VCH 

320 NPTR=NFPTR+1:PTR (NPTR)=-T+1: PARS (NFTR) =FAR&# (P) + 
CHR$S CINT(T/256) )+CHR$SIT MOD 256) +CHR# (2) : ATT (NFTR) 

=VCH:VISITE(T)=1 

330 NEXT I 

340 PFTR(F)=PTR(F) +1 

350 NEXT F 

360 NST=NST+1:GO0OTO 260 

370 REM affichage du trajet trouvé 

380 1=1:A#="Frendre le métro à ":P#=PAR#S(P)+CHRS# (I 
NT (ARI/256))+CHR#(ARI MOD 256) +CHR# (255) 

390 1F NOM$ (DEF) =NOM$# (ASC (MID# (P#,4,1))#256+ASC (MI 
D+(P$,5,1))) THEN PF#=MID#(F#,4) 

400 ST=ASC(MID#(PF#,1,1))*x256+ASC(MID#(PF#,1+1,1)):D 
=1-ASC(MID#(P#,1+2,1)):9J=ST 

410 PRINT A$;NOM#(ST):1F D=-254 THEN 450 

A42Q 1F NOM$(J+D)<>"" THEN J=J+D:GOTO 420 

450 PRINT Direction "3; NOM$ (J) :A$="Descendre à 


440 I1=1+3:1F I£LEN(F#) THEN 400 

45Q PFRINT:PRINT'"'Vous aurez parcouru";NSTs "stations 
“": PRINT 

468 INFUT"Désirez-vous un autre trajet ";A# 

470 IF LEFT#(A$,1)="0" THEN FRINT:PFRINT:GOTO 140 
480 END 

490 REM recherche du numéro de station 

500 S=0:FOR 1=1 TO TAILLE 

510 1F S$=NOM#(I) THEN S=1:1I=TAILLE 

520 NEXT I:IF S<>@Q THEN RETURN 

530 FOR I=1 TO TAILLE 

540 IF INSTR(INOM#(I1),S5$)<>0 THEN PFRINT"'Est-ce ";NO 
M$(I);: INPUT R#:1F LEFTH(R#,1)="0" THEN S=I:1I=TAIL 
LE 

550 NEXT I:IF S=Q THEN FRINT'Station inconnue" 

560 RETURN 

570 REM liste des lignes de métro 








580 DATA 4,97 

590 DATA MAIRIE DE MONTREUIL,CROIX DE CHAVAUX ROSE 
SPIERRE, PORTE DE MONTREUIL ,MARAICHERS , BUZENVAL , #08 
TION,RUE DES BOULETS,CHARONNE , VOLTAIRE,ST AMBROISE 
688 DATA *OBERKAMFF , *REPUBLIQUE , *STRABOURG ST DENI 
S,BONNE NOUVELLE ,RUE MONTMARTRE ,*RICHELIEU DROUOT, 
*CHAUSSEE D'ANTI,#HAVRE CAUMARTIN,ST AUGUSTIN,*MIR 
OMESNIL,*FRANKLIN ROOSGEVELT,*ALMA MARCEAU, IENA, #78 
OCADERO,RUE DE LA FOMPE,LA MUETTE, RANELAGH,JASMIN 

610 DATA *MICHEL-ANGE MOLITOR,*MICHEL-ANGE AUTEUIL 
.EXELMANS, FORTE DE ST CLOUD,MARCEL SEMBAT, BILLANCO 
URT,PONT DE SEVRES,FIN 

620 DATA CHATEAU DE VINCENNES, BERAULT,ST MANDE TOU 
RELLE,PORTE DE VINCENNES, #*NATION,REUILLY DIDEROT,G 
ARE DE LYON,*BASTILLE,ST FAUL,#*HOTEL DE VILLE, *CHA 
TELET,LOUVRE,#PALAIS ROYAL, TUILERIES 

630 DATA *CONCORDE , *CHAMPS-ELYSEES CLEMENCEAU, *FRA 
NKLIN ROOGSEVELT,GEORGES V,*xCHARLES DE GAULLE ETOIL 
E,ARGENTINE, PORTE MAILLOT,LES SABLONS,PONT DE NEUI 
LLY,FIN 


64 DATA *CHATELET,*HOTEL DE VILLE ,RAMBUTEAU, *ARTS 
ET METIERS, *REPUBLIQUE , GONCOURT , *BELLEVILLE ,PYREN 

EES ,JOURDAIN,*FPLACE DES FETES,TELEGRAFHE, *PORTE DE 
S LILAS,MAIRIE DES LILAS,FIN 

658 DATA GALLIENI ,PORTE DE RAGNOLET, *GAMBETTA, *PER 


E LACHAISE,ST MAUR,PARMENTIER, *REPUBLIQUE , TEMPLE , # 
ARTS ET METIERS,*REAUMUR SEBASTOFOL, SENTIER, BOURSE 
*QUATRE SEPTEMBRE 

668 DATA *OPERA,#*HAVRE CAUMARTIN,#ST LAZARE , EUROFE 
3 *VILLIERS , MALESHERBES , NAGRAM,FEREIRE,FORTE DE CHA 
MPERET,LOUISE MICHELE,ANATOLE FRANCE ,PONT DE; LEVAL 
LOIS BECON,FIN 

67@ REM 

680 REM Extensions du programme 

690 REM 

700 REM Pour rajouter des lignes : 

710 REM ligne 580 : nombre de lignes,nombres de st 
ations 

720 REM entrer les lignes dans l'ordre des station 


s 

730 REM préceder les correspondances par une étoil 
e (*) 

740 REM une ligne se termine par FIN | 
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SORCELLERIE !!! 


Votre fardeau est lourd : sauver le monde de la menace des sorciers... 
Pour réaliser cette prouesse, vous devrez entrer vos ordres sous la forme 
verbe/complément, le verbe étant à l’impératif ou abrégé à trois lettres, 
le complément pouvant l'être à quatre lettres, 
Par exemple, « prends gâteau » ou « pre gâte ». 
Aux questions « où ? » on « à qui ? » de l'ordinateur, répondre seulement par un nom. 
Le reste des explications est fourni par le programme, 
Ne vous découragez pas, la solution existe 
et le monde peut être sauvé... 





























Rafi Deryeghiyan Æ 
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18 CLS 

20 PRINT URIMMNMEEMONRERUEUREE EE 
3Q PRINT ‘"# *" 
AO PRINT "*% SORCELLERIE #" 
50 PRINT “%# *«" 
60 FRINT He EEE EEE ll 
70 FRINT 


80 FRINT "JUSQU'EN 2036, LE MONDE VIVAIT EN PAIX, 
PUIS DES TROURLES COMMENCERENT À REMUER LA SOCIÈTE 
;" 

90 PRINT "22 JUILLET 2037 : REAFFARITION DE SORCIE 
RS'";:PRINT "AUX POUVOIRS TERRIFIANTS. ENCORE FEU N 
OMEREUX, ILS ETAIENT MAITRISES FACILEMENT." 

100 FRINT "NOEL 2037 : COUF DE FORCE DES SORCIERS. 
":PRINT'TOUTES LES ARMEES SONT REDUITES À NEANT,. F 
ROCLAMATION DE LA DICTATURE DES SORCIERS, " 

110 PRINT "FEVRIER 2038 : LES SORCIERS FEUVENT À F 
RESENT DETRUIRE LA VOLONTE DES RESISTANTS. " 

120 FRINT "CONSCIENTS DU DANGER, DES DIZAINES DE F 

ERSONNES ONT ESSAYE DE COMBATTRE CE FOUVOIR MALEFI 

QUE, MAIS EN VAIN." 

139 REM LOCATE X,Y : positionne le curseur ligne X 
, colonne Y 

14Q LOCATE 24,1G@:PRINT "AFPUYEZ SUR UNE TOUCHE"; 31 
OCATE 7,1:GOSUB 18@:CLS 

150 PRINT "APRES 6 ANS DE RECHERCHES, VOUS TROUVEZ 
ENFIN UN INDICE : L'ARME ABSOLUE SE TROUVE DANS LU 

N CHATEAU. " 

160 PRINT "QUELLE EST DONC CETTE ARME ABSOLUE 7 À 
VOUS DE LE DECOUVRIR !" 

17Q GOTO 200 

189 REM 

190 RETURN 

200 FRINT "VOICI QUELQUES ELEMENTS FOUR VOUS AIDER 
DANS VOTRE QUETE :" 

210 FKRINT 

















220 PRINT " N FOUR ALLER AU NORD. " 
250 PRINT " 5 FOUR ALLER AU SUD." 
240 PRINT " E POUR ALLER À L'EST." 
250 FRINT " O POUR ALLER 4 L'OUEST." 
268 PRINT “  INV FOUR L'INVENTAIRE. " 





276 PRINT “ QUI POUR ARRETER." 

280 PRINT:PRINT "FOUR LE RESTE, À VOUS DE JOUER !" 
::LOCATE 1,1:GOSUB 180 

290 DIM Li$(24,7) ,0R$(30,2) ,VE$(32) 

300 FOR I=1 TO 24:FOR J=i TO 7 

310 READ LIS$(I,J):NEXT J:NEXT I 

320 DATA DEVANT LA FORTE DU CHATEAU, ,àEàà,,2,, 

330 DATA DANS L'ENTREE DU CHATEAU, ,àES0,,3,7,1 

340 DATA DANS LE GRAND SALON,MEUBLES DE LUXE. ,àES0 
15482 

350 DATA DANS UN COULOIR MAGNIFIQUE, ,NES0,6,5,9,3 
369 DATA DANS LA SALLE DE BAINS,EVIER. ,ààà0,,,,4 
370 DATA DANS UNE CHAMBRE SOMPTUEUSE, LIT. ,àà5à,,,4 
* 
80 DATA DANS LE FETIT SALON, ,NESà,2,8,11, 

390 DATA DANS LA CUISINE,MEUBLES. ,Nà50,3,,13,7 
40Q DATA DANS LA CHAMBRE D'AMIS,LIT.PORTE. ,äaàäà,,, 


, 

41@ DATA DANS UN ATELIER, ,ààà0,,, 24 

420 DATA DANS UN COULOIR, ,NEàà,7,12,, 

43@ DATA DANS UN LONG COULOIR DE PIERRE, ,4Eà0,,13, 




































? 

440 DATA DANS UN COULOIR, ,Nàà0,8,,,12 
450 DATA DANS UNE FIECE SECRETE, ,NEëà,12,15,, 

46@ DATA DANS UNE SALLE DE TORTURE !,INSTRUMENTS D 
E TORTURE. ,4àà0,,,,14 

47Q DATA AU GRENIER, ,àEàà,,17,5 

480 DATA DANS UNE GRANDE PIECE ILLUMINEE FAR DES E 
OUGIES, ,àEà0,,18,,16 

49 DATA DANS UNE FETITE PIECE SOMBRE, ,àà40,,, 17 
500 DATA SUR UNE CORNICHE,LE VIDE. ,àà6à,,,20, 

51@ DATA DANS UNE PIECE AU SOUS-50L, ,NESà,19,21,22 

























































DANS UN ASCENSEUR, ,àààà, , 3 
530 DATA DANS UNE SALLE OU TRAINENT DES SQUELETTES 
»NàSà,20,,23, 

54@ DATA DANS UNE SALLE ABANDONNEE DEFUIS LONGTEMF 
S,,Näàà,22,,, 

550 DATA DANS UNE GROTTE, ,àEà0,,10,,9 

560 FOR 1=1 TO 30: FOR J=1 TO 2: READ OB#$(I,d): NE 
XT J:NEXT 1! 

570 DATA PILE,-6,AMPOULE,S,LAMPE,-53,GANTS,5, GATEAU 
,8, TABLEAU, 9 

58 DATA SCIE,10,FIOLE,10,CORDE, 15, PARCHEMIN, 17 ,EC 
HELLE ,23,DRAPS ,6 , PLAFOND, @ 

590 DATA GROTTE,-9,FENETRE , 14, BARREAU ,-14,STATUE, 1 
6,FENTE, 18, CHANDELIERS , 4 

608 DATA NORD,@,SUD,0,EST,0,OUEST,0,BOUTON,-12,LIT 
,8,ANNEAU , 14 

618 DATA CHIENS,22,MUR,0,FORTE,0,FASSAGE, -12 

620 FOR I=1 TO 32:READ VE#(I):NEXT 1 

630 DATA "VA ",ENT,MON,DES,REG,EXA,0BS,PRE,SAI,SAI 
,DEV,LAC,F0S,LAN 

648 DATA JET,OUV,FER,SCI,EMB,POU,LIS,MAN,DON,ATT,A 
LL,INS,APFP,VIS,DET,ETE, VA, BOI 

650 P1=0:LA=0:GA=Q: AL=0: PA=Q: CO=0: BA=O: FE=0: CR=Q: D 


L=i:FI=0:LE=0 
67@ CLS 

680 IF L=24 AND LA=G THEN 377Q 

690 IF L=17 AND EM=Q THEN 3780 

700 IF L=27 AND CH=Q THEN 7790 

710 PRINT "VOUS ETES "iÿLIi$(L,1):PRINT 
720 G1i=1 
PRINT 





"VOUS VOYEZ : "sLI$(L,2)35331F LI$(L,2)="" 





740 IF L=9 AND AC=0 THEN FRINT" 
S LA FIECE.";:GO0OTO0 76@ 
750 IF L=9 AND AC THEN FRINT" RONGEE PAR L'ACIDE. " 


VOUS ENFERMANT DAN 





768 A7=0 

770 FOR I=1 TO 3O:1F VAL(OR#(1,2))<>L THEN 900 

780 PRINT OB#(I1,1)3"."3:Q2=1 

790 IF I1=2 AND AL=2 THEN PRINT" ALLUMEE.";:GOTO 90 














a 

800 IF 1=3 AND LA=Q THEN FRINT" ETEINTE.";:GO0OT0 90 
LA] 

810 IF 1=% AND LA THEN FRINT"ALLUMEE.";:GOTO 908 
820 1F 1=8 AND FI=Q THEN FRINT" PLEINE. "3::GOTO 9700 
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SORCELLERIE !!! 


830 1F 1=8 AND FI THEN PRINT" CASSEE,":;::GDTO 900 
84Q IF 1=15 AND FE=@ THEN FRINT'" FERMEE. ";::G0OT0O 9@ 
a 

85G IF 1=15 AND FE THEN FRINT" OUVERTE, ";::GOTO 90@ 
860 IF 1=ié6 AND HA THEN PRINT" SCIE,"3::G0T0 900 
87Q IF I1=18 THEN PRINT" DANS LE MUR,.";:GOTO 900 
880 IF 1=27 AND CH=Q@ THEN PRINT" AFFAMES."3;::GOTO 9 
(ep) 

890 IF 1=27 AND CH THEN PRINT" MORTS. ": 

90@ NEXT I:1F Q1=@ AND Q2=0 THEN PRINT "RIEN DE SF 
ECIAL.'":PRINT:GOTO 92Q 

910 FRINT 

920 FRINT "DIRECTIONS FOSSIRLES: D 

930 FOR I=1 TO 4:DI$=MID#(LI$(L,3),1,1) 

940 1F DI$='"'N" THEN PRINT "NORD. "; 

950 IF DI$="S" THEN PRINT "SUD. "3; 

96@ 1F DI+t="E" THEN PRINT "EST.": 

970 IF DIi$="O" THEN PRINT "OUEST."; 

98Q@ NEXT I: FRINT 

790 

1000 

1910 

1020 IF L=21 THEN 3800 

1035Q LOCATE 23,1 

1048 FRINT:PFRINT "QUE FAITES-VOUS ? "“s;:GOSUER 1 
1050 IF RIGHT#(R#$,1)=" " THEN 
R$=LEFTS(R$,LEN(R$)-1):GO0TO0 1050 

1060 IF R#t="" THEN 1040 

1070 IF R$="0" OR R$="E" OR R$="S" OK R$="N" 
M$#=R$:GOTO 1490 

1080 IF LEFT#(R#,3)="QUI" THEN CLS:END 

1090 IF LEFT$(R$,3)="INV" THEN 1290 

1100 X=0:FOR I=LEN(R#$) TO 1 STEP -1 , 
1110 IF MID$H(R$,1,1)=" " OR MID#(R#,1,1)="°" THEN 
X=I:1=1 

1120 NEXT I:1F X=0 THEN 1190 

1130 VSELEFT#(RS,X-—-1) :MF=MIDS# (R#,X+1,4) 

1140 V=0:FOR 1=1 TO 32:1F LEFT$(V#,3)=VE#(1) THEN 
V=I:1=32 

1150 NEXT I 


1160 M=@G:FOR 1=1 TO S@:IF M#=LEFT#(OB#(1,1),4) THE 
N M=Il:1=30 


1170 NEXT 1! 
1180 ON V GOTO 1380,1380,1530,1640,1870,1820,1820, 
2290,2290,2290,2460,2530,2530,2560,2560,2650,2760, 
2850,2910,2940,5:050,3090,3140,:220,3%10,3250,2940, 
3440,3500,3580,1380,3620 

1190 PRINT: PRINT "ESSAYEZ AUTRE CHOSE !": GOTO 10 
49 

1200 R$=" " 

1210 AS=INKEYS:IF A$="" THEN 1210 

1220 IF ASC(AS)<>13 THEN 1250 

1230 IF LEN(R$#)>1 THEN R$= RIGHT#(R$S,LEN(R#)-1): KR 
ETURN 


1240 R$="": RETURN 

1250 IF AGSC(A$)=8 AND LEN(R#)>1 THEN R$=LEFTS(R$,L 
EN(R#)-1): PRINT A$:" "sA#::GOTO 1210 

1260 IF A$=" " OR A$="'" THEN 1280 

1270 IF ASC(A$)<65 OR ASC(A#)>91 THEN 1210 

1280 PRINT Af$::R$=R$S+AS: GOTO 1210 

1290 IF NO=Q THEN PRINT:FPRINT "VOUS NE FOSSEDEZ RI 
EN.":GOT0 1040 

1300 PRINT:PRINT “VOUS FORTEZ :":PRINT:FOR I=i TO 
12:1F OB#(1,2)<>"100" THEN 1370 

1310 PRINT OB$(I,1)3"."3 

1320 IF 1=3 AND LA=Q THEN FRINT" ETEINTE. "3; :GOTO.1 
370 

1350 IF 1=3 AND LA THEN PRINT" ALLUMEE.":;:GOTO 137 
a 

1340 IF 14> 8 THEN 1370 

1350 IF F1=Q THEN PRINT" FLEINE.";:GOTO 137@ 

1360 FRINT" CASSEE. "; 

1370 NEXT I:FRINT:GOTO 1040 

1380 IF M<>SQ THEN 1410 

1390 IF L<>12 OR VAL(OB#(30,2))<Q THEN FRINT:FRIN 
T "OU VOYEZ-VOUS UN ":0B#(30,1):" 7 ":GOTO 1040 
1400 L=14:GO0TO 670 

1410 IF M{>14 THEN 1440 

1420 IF L£>9 OR VAL(OB#(14,2))€@ THEN PRINT: PRINT 
"OU VOYEZ-VOUS UNE ":OE#(14,1):" 7 ":GOTO 1040 
1430 L=24:GOTO 670 

1440 IF M<>29 THEN 1480 

1450 IF L£>9 THEN PRINT :FRINT "DONNEZ UNE DIRECTI 
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ON SVP.":GOT0 1040 

1460 IF AC=@ THEN PRINT:FRINT "IMPOSSIBLE ! ELLE E 

ST FERMEE.": GOTO 1040 

1470 L=4:G0TO 670 

1480 IF M<20 OR M>2% THEN 1520 

1490 FOR I=1 TO 4 

1500 IF LEFTE(M$,1)=MID#(LIS(L,3),1,1) THEN L=VAL( 

LI$(L,1+5)):GO0TO 670 

1510 NEXT 1 

1520 FRINT:FRINT "VOUS NE FOUVEZ FAS ALLER FAR LA 
!":GOTO 1040 

1530 IF L£>6 AND L<>19 THEN FPRINT:PRINT "VOUS NE F 

QUVEZ FAS MONTER ICI !":GOTO 1040 

1540 IF L£>6 THEN 1590 

1550 IF M£>11 THEN FRINT:PRINT "VOUS DEVEZ AVOIR T 

ROF EU !":GOTO 104Q 

1560 IF OB#$(11,2)="100" THEN PRINT :PRINT "POSEZ D 
‘ABORD VOTRE ";:0B#(11,1):GOTO 1040 

1570 IF VAL(OR$(11,2)){>L THEN PRINT:PRINT "QUELLE 
":0OR#(11,1)5" ?":GOTO 1040 

1580 L=16:GOTO 670 

1590 IF M=12 THEN L=14:G0T0 470 

1600 1F M£>11 THEN FRINT:PRINT "VOUS DEVRIEZ VOUS 

REPOSER UN FEU.":GOTO 1040 

1810 IF OB#(11,2)="100" THEN PRINT:PRINT "ET SI VO 

US POSIEZ VOTRE ":0B#(11,1):" ?":GOTO 1040 

1620 1F VAL(DB#(11,2))<>L THEN FRINT:FRINT "QUELLE 
":0R#(11,1):" 7":GOTO 1040 

1630 L=14:GOTO 670 

1640 IF L£>14 AND L4>16 THEN PRINT:FRINT "VOUS NE 

FOUVEZ PAS DESCENDRE ICI.":GOTO 1040 

1650 IF L=14 THEN 1680 

1660 IF M£>11 THEN FRINT:PRINT "NE DITES FAS N'IMP 

ORTE QUOI !":GOTO 1040 

1670 L=6:G60T0 670 

1680 IF M£>11 AND M&>9 AND Mé>12 THEN PRINT:PRINT 
“REFOSEZ-VOUS DONC UN FEU..":GOTO 1040 

1690 IF FE=0 THEN PRINT :PRINT "IMPOSSIBLE : LA "s 

OR$(15,1);" EST FERMEE. ":GOTO 1040 

1700 IF BA=Q THEN PRINT:PRINT "UN ":0E#(16,1)3:" VO 

US EMPECHE DE PASSER !:0B#(16,2)="14":FOR 2=1 TO 2 

ES:NEXT Z:G0T0 500 

1710 IF M=9 OR M=12 THEN 1750 


1720 IF OB#(11,2)="100" OR VAL(OB#(11,2))=L THEN P 
RINT:PRINT "VOUS NE POUVEZ FAS.":GOT0 1040 

1720 IF OB$f(11,2)="19" THEN L=19:G0T0 670 

1740 PRINT:PRINT "QUELLE "s0OR#(11,1)5;" ?7":GOTO 104 
à 

1750 IF M=12 THEN 1790 


1760 IF VAL(OB#(9,2))<5L AND OB#(9,2)<>"100" THEN 

FRINT:PRINT "QUELLE ":0B#(9,1)5" 7":GO0TO 1040 

1770 IF CR THEN PRINT: PRINT "LA ":0B#(9,1):" CASSE 
I":FRINT "VOUS VOUS ECRASEZ AU FOND DU RAVIN":GOT 

O 3670 

1780 FRINT:PRINT "VOUS PASSEZ FAR LA ";0H#(15,1)5;" 
ET ALLEZ VOUS ECRASER AU FOND DU RAVIN.":GOTO 367 

p) 

1790 IF VAL(OB$(12,2))4>L AND ORf(12,2)€>"100" THE 

N PRINT:PRINT "QUEL ":0B#(12,1)5;" ?":GOTO 1040 

1800 IF DR THEN L=19:GOTO 670 

1810 GÜTO 1780 

1820 IF M=Q THEN 2280 

1850 1F VAL(OB#(M,2))=@ OR VAL(OB#(M,2))=100 OR VA 

L(OB#(M,2))=L THEN 1850 

1840 PRINT: PRINT "JE NE VOIS PAS CA ICI !":GOTO 1 

240 

1850 ON M GUTO 1860,1870,1890,2780,1920,1930,2780, 
1940,1960,1970,7280,2780,1980,2000,2020,7270,2100, 

2110,2120,2280,2260,2280,2280,2130,2150,2180,2190, 

2210,7240,7270 ÿ 

1860 FRINT:PRINT "VOUS N'EN N'AVEZ JAMAIS VU ?":G0 

TO 1040 

1870 IF AL=G THEN PRINT :FRINT "ELLE EMET UNE LUMI 

ERE AVEUGLANTE. ":G0TO 1040 

1880 PRINT :PRINT "ELLE EST ETEINTE.":GOTO 1940 

1890 1F OB#(1,2)€>"100" THEN PRINT:PRINT "IL MANGU 

E UNE ":0B#(1,1):GOTO 1040 

1900 IF LA=Q THEN FRINT:FRINT "ELLE EST ETEINTE. ": 

GOTO 1040 

1910 PRINT:FRINT "ELLE EST ALLUMEE.":GOTO 1040 

1920 FPRINT:FRINT “IL EST AU CHOCOLAT.":GOTO 1040 

1930 PRINT:PRINT "C'EST UN PORTRAIT DE SATAN. ":60T 

o 104a 





| 
: 





1940 IF FI=Q THEN PRINT:PRINT "ELLE EST PLEINE DE 
LIQUIDE.":GO0OTO 1849 
1950 FRINT:FRINT "ELLE EST BRISEE.":G0OTO 1040 


1960 FRINT:PRINT "ELLE À L'AIR ANCIENNE. ":GOTO 184 


e 

1970 FRINT:PRINT “IL Y À QUELQUE CHOSE MARQUE DESS 
US.'": GOTO 1040 

1980 IF L<ré THEN 2280 

1990 FRINT: PRINT "IL Y À UN TROU ASSEZ GRAND FOUR 
Y PASSER.": GOTO 1040 

2000 REM 

2010 PRINT: FRINT "IL FAIT ASSEZ SOMBRE À L'INTERI 
EUR.'": GOTO 1048 

2020 1F FE=0 THEN FKINT: PRINT "ELLE EST FERMEE. ": 
GOTO 2040 

2030 PRINT: FRINT "ELLE EST OUVERTE." 


2040 IF VAL(OR#(16,2))<Q THEN PRINT "VOUS VOYEZ EG 
ALEMENT UN ":0B#(16,1): OB#$(16,2)="14": GOTO 2060 
2050 PRINT "IL YŸ À UN ":0R#(16,1)3:: IF (BA) THEN PF 
RINT " SCIEE"; 


206Q FRINT: PRINT "VOUS VOYEZ AUSSI UN RAVIN TRES 
PROFOND.'": GOTO 1048 

2070 REM 

2080 1F BA=Q THEN PRINT: PRINT “IL À L'AIR SOLIDE. 
“+: GOTO 1040 

2090 FRINT: PRINT "IL EST SCIE.": GOTO 1040 


2100 PRINT:FPRINT 
O0 1040 

2110 FRINT: FRINT "ELLE EST ETROITE, HORIZONTALE, 
ET DANS LE MUR.": GOTO 1040 

2120 PRINT: FRINT "ILS SONT EN OK INCRUSTE DE DIAM 


"C'EST UNE STATUE DE SATAN.": GOT 


ANTS.'": GOTO 1049 

2130 REM 

214@ FRINT: PRINT "VOUS N'EN N'AVEZ JAMAIS VU 7°": 
GOTO 1240 

2150 IF L=9 THEN 2280 

2160 IF OH#(1,2)24>"-6" THEN PRINT: PRINT "C'EST UN 
LIT À BALDAGUINS.": GOTO 1040 

2170 PRINT: FRINT "C'EST UN LIT A BALDAQUINS.": PR 
INT "VOUS DECOUVREZ UNE ";0R#(1,1):" CACHEE DESSOU 

S !": FOR Z=1 TO 3000: NEXT Z: OB#(1,2)="6": GOTO 

670 

2180 FRINT: PRINT "IL EST ACCROCHE DANS LE MUK.": 
GOTO 1040 

2190 IF CH=Q THEN PRINT: PRINT "ILS ONT L'AIR MECH 
ANTS.": GOTO 1@4Q 

2200 FRINT: PRINT “ILS SONT MORTS.": GOTO 1040 
2210 IF L<>12 THEN 2290 

2220 1F OE#(24,2)="12" THEN 2280 

2230 PRINT: PRINT "IL EST FENDU DE HAUT EN BAS. ": 


PRINT "VOUS REMARQUEZ EGALEMENT UN ":;:0H#(24,1): OB 


#(24,2)="12": FOR Z=1 TO 300@: NEXT Z: GOTO 67@ 
2240 IF L<>9 THEN 2280 

2250 IF AC=0 THEN FRINT: FRINT "ELLE EST EN ACIER. 
"+: GOTO 1@40 

2260 PRINT: PRINT "ELLE EST RONGÉE FAR L'ACIDE. "3: 
GOTO 1040 

2270 REM 


2280 FRINT: 
: GOTO 1048 
2290 IF M=24 THEN 2940 
2300 IF M=2 THEN 2400 

2310 IF NO=4 THEN PRINT: 
‘OBJETS !": GOTO 1240 

2320 IF M=@ THEN PRINT : 
GOTO 1040 

2330 IF OE$(M,2)="100" THEN PRINT : 
AVEZ DEJA.": GOTO 1040 

2340 IF VAL(OB$(M,2))<>L THEN PRINT: PRINT "JE NE 
VOIS PAS CA ICI !": GOTO 1040 

2350 IF M=9 THEN 2420 

2360 IF M=12 THEN 2440 

2370 IF M>12 THEN PRINT: PRINT 
PRENDRE CA GOTO 1040 

2380 IF M=6 THEN OB$(14,2)="9" 
2390 OR$(M,2)="100": NO=NO+1: 

2400 IF AL THEN 2390 

2410 PRINT: PRINT "VOUS OUBLIEZ DE FAIRE QUELQUE C 
HOSE !": GOTO 1940 

2420 IF CR THEN 2410 

243@ GOTO 2390 

2440 IF DR THEN 2410 

2450 GOTO 2390 


FRINT "VOUS NE VOYEZ RIEN DE SFECIAL." 


PRINT "VOUS PORTEZ TROF D 
FRINT "PRENDRE QUOI 777": 


FRINT "VOUS L' 


"VOUS NE FOUVEZ PAS 


GOTO 67Q 


27 





2460 1F M<>2 THEN PRINT: PRINT "CA NE SE DEVISSE F 

AS !": GOTO 1040 

2470 IF L<>3 THEN PRINT: 

VISSER 1CI.": GOTO 1240 

2480 IF AL THEN PRINT: PRINT 

OTO 1040 

2490 IF OB$(4,2)<>"100" THEN PRINT: 

BLE : VOUS VOUS BRULEZ.": GOTO 1040 

2500 IF OR#(3,2)€>"-3" THEN AL=i: GOTO 670 

2510 AL=1i: PRINT: PRINT "ELLE ETAIT RELIEE À UN DI 

SPOSITIF ELECTRONIQUE, ET QUELQUE CHOSE EST TOMAE" 
: OB$(3,2)="3" 

2520 FOR Z=1 TO 40@0: NEXT Z: 

2520 IF M=Q THEN PRINT: PRINT 

OTO 1040 

2540 IF OBf(M,2)<>"100" THEN PRINT: PRINT "VOUS NE 
L'AVEZ PAS AVEC VOUS.": GOTO 1040 

2550 OB$(M,2)=STR#(L): NO=NO-1: PRINT: 
FOR Z=1 TO 1000: NEXT Z: GOTO 670 

2560 IF M<>8 THEN 2530 

2570 IF Lé>9 THEN 2530 

2580 IF OR+(8,2)<>"100" THEN FRINT: 
L'AVEZ FAS.": GOTO 1040 

2590 IF FI THEN 2530 

2600 PRINT: PRINT "OU ? “;: GOSUE 1200 

2610 IF LEFT#+(R#,4)<>LEFT#(OR#(29,1),4) THEN FRINT 
: PRINT: PRINT "EN RETOMBANT, ELLE SE BRISE.": Fl= 
1: OB$(8,2)="9": FOR Z=1 TO 2000: NEXT Z: NO=NO-1: 
GOTO 670 

2670 PRINT: PRINT "LA ":0B#(29,1);" EST RONGEE FAR 
L'ACIDE QUE CONTENAIT LA "53OB#(8,1);"." 

2630 NO=NO-1 

2640 Fi=1: AC=1: 
XT Zi GOTO 670 

2650 1F M£>15 AND Mé>29 THEN PRINT: 
‘OUVRE FPAS.": GOTO 1040 

2660 1F M=29 THEN 2700 

2670 IF L<>14 THEN FRINT: 
>" 7": GOTO 1040 

2680 1F FE THEN PRINT: PRINT " VOUS L'AVEZ DEJA FA 
IT.": GOTO 1040 iJ 

2690 FE=1: PRINT: PRINT 

T Z: GOTO 670 

2700 IF L=24 OR L=19 THEN PRINT: 

B$(29,1)3" 9": GOTO 1040 

2710 IF L<>9 THEN PRINT: 

RTE.": GOTO 1040 

2720 IF AC THEN 2740 

2730 PRINT: PRINT "IMPOSSIBLE, 

GNEE ET ELLE A L'AIR SOLIDE.": 

2740 PRINT: PRINT "VOUS NE FOUVEZ FAS, 
UN TROU ASSEZ GRAND FOUR PASSER. " 

2750 GOTO 1040 

2760 IF M<>15 AND M<>29 THEN FRINT: 

E FERME FAS.": GOTO 1040 

2770 IF M=29 THEN 2810 

2780 IF L<>14 THEN PRINT: 
>;" ?": GOTO 1040 

2790 IF FE=Q THEN 

AIT.": GOTO 1040 

2800 FE=0: PRINT: 

T Z: GOTO 67Q 

2810 IF L=24 OR L=19 THEN PRINT: PRINT 

E#(29,1);" 7": GOTO 1040 

2820 IF L<>9 THEN PRINT: 

GOTO 1040 

2830 IF AC=0 THEN PRINT: 

VOUS ETES ENFERME...": GOTO 1040 

2840 FRINT: PRINT "VOTRE ETAT MENTAL DOIT ATTEINDR 

E LA COTE D'ALERTE À MON AVIS...": GOTO 1940 

2850 IF OB$(7,2)<>"100" THEN PRINT: PRINT "AVEC LE 

S DENTS ?": GOTO 1040 

2860 IF MC>1é THEN PRINT: 
GOTO 1040 

2870 IF L<>14 OR OB$(16,2)="-14" THEN PRINT: PRINT 
"QUEL ":0B#(16,1):" 7": GOTO 1040 

2880 IF BA THEN PRINT: PRINT "VOUS L'AVEZ DEJA FAI 

T !": GOTO 1040 

2890 1F FE=0 THEN PRINT: 
IRE QUELQUE CHOSE. ..": 

2900 PRINT: PRINT "OK": 

T Z: GOTO 670 

2910 IF M<>17 THEN PRINT: 


PRINT "ON NE FEUT RIEN DE 


"C'EST DEJA FAIT.": G 


PRINT "“IMPOSSI 


GOTO 67@ 
"LACHER QUOI 777": G 


PRINT "OK": 


FRINT "VOUS NE 


OB#(8,2)="9": FOR Z=1 TO 2000: NE 


PRINT "CA NE S 


PRINT "QUELLE ";OB#(15,1 


"OK": FOR Z=1 TO 1000: NEX 


FRINT "QUELLE ":s0 


PRINT "ELLE EST DEJA OUVE 


IL N°'Y À FAS DE POI 
GOTO 1040 
MAIS IL Y À 


PRINT “CA NE S 


PRINT "QUELLE ";O0R#$(15,1 


PRINT: PRINT "VOUS L'AVEZ DEJA F 


FRINT "COK'"': FOR Z=1 TO 1000: NEX 


"QUELLE ";0 


FRINT "VOUS NE FOUVEZ FAS 


FRINT "N'OUBLIEZ FAS QUE 


FRINT "CA NE SCIE PAS. ": 


PRINT "VOUS OUBLIEZ DE FA 
GOTO 1040 
BA=i: FOR Z=1 TO 1@@U: NEX 


PRINT "DROLE D'IDEE...": 
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SORCELLERIE !!! 


GOTO 1040 

2920 IF L<>16 THEN PRINT: PRINT "QUELLE ":0B#(17,1 
):" 7": GOTO 1940 

2930 FRINT: FRINT "OK": EM=1: GOTO 1040 

2940 IF M<>8 AND M{>24 THEN PRINT: PRINT "CA NE DO 

NNE RIEN.": GOTO 1040 

2950 IF M=24 THEN 3010 

2960 IF OB#$(6,2)="100" OR (DB#(14,2)="9" AND OB$ (6 
,2)="9") THEN PRINT: PRINT “IL NE GE FASSE RIEN. ": 
GOTO 1040 

2970 IF VAL(OB$(6,2))<>L THEN PRINT: PRINT "QUEL " 
:0B#(6,1)5" 7": GOTO 1040 

2980 IF L<>9 THEN PRINT: PRINT "IL NE SE PASSE RIE 

N.": GOTO 1040 

2990 PRINT: FRINT "UNE “":;0B#(14,1);" ETAIT CACHEE 
DERRIERE !" 

3000 FOR Z=1 TO 100G: NEXT Z: OB$(14,2)="9": GOTO 

670 

3010 IF L<>12 OR OB$(24,2)="-12" THEN PRINT: PRINT 
“QUEL ";30B$(24,1);" 7": GOTO 1@40 

3020 1F OB$(30,2)="12" THEN PRINT: PRINT "IL NE SE 
PASSE RIEN.": GOTO 1040 

3030 OB$(30,2)="12": PRINT: PRINT "CA DECLENCHE L' 

OUVERTURE D'UN ":;0B#(30,1)3;" !" 

3040 FOR Z=1 TO 1500: NEXT Z: GOTO 670 

3050 IF M£>1Q THEN PRINT: PRINT "CA NE SE LIT FAS. 
“: GOTO 1@40 

3060 IF OB$(10,2)<>"100" AND VAL(OB#$(18,2))<>L THE 

N PRINT: PRINT "QUEL "sO0H#(10,1);" 7": GOTO 1040 

3070 IF LE=Q THEN PRINT: PRINT "C'EST ECRIT DANS L 

NE LANGUE ETRANGE QUI NE RESSEMBLE A RIEN DE CONNU 
.": GOTO 1940 

3080 GOTO 3720 

3090 IF M<>S THEN FRINT: PRINT "LES HUMAINS ONT DE 
DROLES D'IDEES !": GOTO 1040 

3100 IF OB#(5,2)<>"100" AND VAL(OB#(5,2))€>L THEN 

PRINT: PRINT "QUEL ";0B#(5,1);" 7": GOTO 1040 

311@ PRINT: PRINT "LES POISONS ONT PARFOIS EON GOU 

LE ÿ 

3120 FRINT "CELUI-CI ETAIT PARTICULIEREMENT EFFICA 

CE. VOUS ETES FOUDROYE !" 

3130 GOTO 3670 

3140 IF M<>5 THEN FRINT: PRINT "VOUS ETES TRES GEN 

EREUX !": GOTO 1040 

3150 1F OB$(5,2)<>"100" THEN PRINT: PRINT "VOUS NE 
LE PORTEZ PAS AVEC VOUS.'": GOTO 1240 

3160 IF L<>22 THEN PRINT: PRINT "C'EST TRES GENERE 

UX DE VOTRE PART.": GOTO 1040 

3170 PRINT: PRINT "A QUI ? ";: GOSUR 120@: PRINT 
3180 IF LEFT#(OB#(27,1),4)<HLEFT#(R#,4) THEN PRINT 
: PRINT "LE MOINS QUE L'ON PUISSE DIRE, C'EST QUE 
VOUS ETES GENEREUX !": GOTO 1840 

3190 PRINT: PRINT "ILS SE JETTENT DESSUS ! CE SERA 
LEUR DERNIER REPAS : ILS MEURENT EN FOUSSANT DES 

HURLEMENTS À GLACER UN MORT !" 

3200 O0B+(5,2)="Q": CH=1i: NO=NO-1 

3210 FOR Z=1 TO 500: NEXT Z: GOTO 670 

3220 IF M£>9 AND M<>12 THEN PRINT: PRINT "CA NE S° 

ATTACHE FAS.": GOTO 1040 

3230 IF (M=9 AND CR=1) OR (M=12 AND DR=1) THEN PRI 

NT: PRINT "C'EST DEJA FAIT.": GOTO 1040 

3240 IF OBf(M,2)*>"100" THEN PRINT: PRINT "VOUS N 

E L'AVEZ FAS.": GOTO 1@40Q 

3250 IF L<>14 THEN PRINT: PRINT "VOUS NE POUVEZ FA 

S L'ATTACHER ICI.": GOTO 1040 

3260 PRINT: PRINT "OU ? "5: GOSUR 1200: FRINT 

3270 IF LEFT#(R#,4) XLEFT#(0B#$(26,1),4) THEN PRINT 
: PRINT "VOUS NE POUVEZ PAS L'ATTACHER LA !": GOTO 
1040 

3280 NO=NO-1 

3290 PRINT: FRINT "OK": OB#(M,2)="14": IF M=S THEN 
CR=1: GOTO 1940 

3300 DR=1: GOTO 1040 

3310 IF M<>3 THEN PRINT: PRINT "CA NE S'ALLUME FAS 
.": GOTO 1840 

3320 IF OB$(1,2)<>"100" THEN FRINT: PRINT "IMPOSSI 

BLE : IL N'Y À FAS DE ":;0B#(1,i)5".": GOTO iG4û 

3330 IF LA THEN FRINT: PRINT "C'EST DEJA FAIT.": G 

OTO 1940 

3340 LA=1: PRINT: PRINT "OK": GOTO 1940 

3350 IF M<>1Q THEN PRINT: PRINT "VOUS NE FOUVEZ FA 

S.": GOTO 1040 ù 

3360 IF OB$(10,2)<>"100" THEN PRINT : PRINT "VOUS 
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NE L'AVEZ PAS AVEC VOUS,": GOTO 1040 

3370 IF L<>18 THEN PRINT : PRINT "JE NE VOIS FAS 
OÙ VOUS POURRIEZ LE FAIRE'";: GOTO 1040 

3580 IF LE THEN PRINT: PRINT "VOUS L'AVEZ DEJA FAI 
T.": GOTO 1040 

339Q PRINT: FRINT "OU ? "3: GOSUR 1200: FRINT 

3400 IF LEFT#(R#$,4) <>LEFT+(OB$(18,1),4) THEN PRINT 
: FRINT "VOUS NE FOUVEZ PAS LE METTRE ICI.": GOTO 
1040 

341Q FRINT: FRINT "IL EST ASFIRE VERS L'INTERIEUR, 
ET QUELQUES MINUTES FLUS TARD, IL RESSORT." 

3420 LE=1: NO=NO-1 

3430 OB$(10,2)="18": FOR Z=1 TO 3000: NEXT Z: GOTO 
670 

3440 IF M<>2 THEN PRINT: PRINT "CA NE SE VISSE PAS 
.": GOTO 1040 

345Q 1F L<>3 THEN PRINT : PRINT "ON NE PEUT RIEN V 
ISSER ICI.": GOTO 1040 

3460 IF AL=Q THEN FRINT: PRINT "ELLE EST DEJA SUR 
SON SUFPFORT.": GOTO 1040 

3470 IF OB$(2,2)<>"10@" THEN FRINT: PRINT “VOUS NE 
L'AVEZ PAS AVEC VOUS."; GOTO 1040 

3480 FRINT: FRINT "EN LA REVISSANT, VOUS VOUS ELEC 
TROCUTEZ !" 

3450 GOTO 3670 

3500 1F M<>9 AND M<>12 THEN PRINT: PRINT "CA NE SE 
DETACHE PFAS.": GOTO 1940 

3510 1F VAL(OB#(9,2))<>L AND OB#(9,2)<>"100" THEN 
PRINT 3: PRINT "QUELLE ";0B#(9,1)5" 7": GOTO 1040 

3520 1F VAL(OB$(12,2))<>L AND OB#f(12,2)<>"100" THE 

N PRINT : PRINT "QUEL ";0B#(12,1)3;3" 7": GOTO 1940 

3530 1F M=9 AND CR=Q THEN PRINT: PRINT "ELLE N'EST 
FAS ATTACHEE.'": GOTO 1040 

3540 IF M=12 AND DR=Q THEN FRINT:PRINT"IL N'EST FA 

S ATTACHE./':G0T0 1840 

3550 1F L<>14 THEN FRINT: PRINT "VOUS NE FOUVEZ FA 

S LE FAIRE D'ICI.'": GOTO 1040 

3560 PRINT: PRINT "OK": IF M=9 THEN CR<@: GOTO 104 


a 

3570 DR<@: GOTO 1040 

3580 IF M£>3 THEN FRINT: PRINT "AH EON ??7!": GOTO 
1240 

3890 1F OB#$(3,2)<>"100" THEN PRINT: PRINT "VOUS NE 


LA FORTEZ FAS SUR VOUS.": GOTO 1040 
3600 IF LA=Q THEN FRINT: PRINT "ELLE EST DEJA ETEI 


NTE.": GOTO 1040 

3610 FRINT: FRINT "OK": LA=0: GOTO 1040 

32620 IF Mé>8 THEN PRINT: PRINT "VOUS DITES N'IMPOR 
TE QUOI !": GOTO 1040 

3630 IF OB$(8,2)<>"100" AND VAL(OB#(8,2))<>L THEN 
PRINT: PRINT "QUELLE "30B#(8,1);" 7": GOTO 1040 
3640 IF FI THEN PRINT: PRINT "ELLE EST CASSEE : IL 
N'Y À FLUS RIEN DEDANS.": GOTO 1040 

3650 PRINT: PRINT "C'ETAIT DE L'ACIDE..." 

3660 PRINT: "JE VOUS LAISSE DEVINER CE QUI VOUS A 
RRIVE !" 

3670 FRINT: PRINT: PRINT "VOUS AVEZ FAILLI A VOTRE 
MISSION : VOUS ETES VRAIMENT NUL." 

3680 PRINT: PRINT "SERIEZ-VOUS PRET À RECOMMENCER 
7". 

3690 AF=INKEY#: IF Af="" THEN 3690 

3700 IF Af="O0" THEN RUN 

3710 CLS: PRINT "FOULE MOUILLEE": END 

3720 CLS 

3730 PRINT "C'EST LE TEXTE D'UN SORT !" 

3740 PRINT: PRINT "CE SORTILEGE VOUS A PERMIS DE KR 
AYER DE LA SURFACE DE LA TERRE TOUS LES SORCIERS. " 
3750 PRINT: PRINT: PRINT "VOUS MERITEZ VRAIMENT LE 
TITRE DE SUPERMAN DU XXI EME SIECLE !* 

3760 END 

3770 PRINT: PRINT "IL FAIT SI NOIR DANS CETTE ":0B 
#(14,1):" QUE VOUS AVEZ TRERUCHE, ET QUE VOUS VOUS 
ETES ROMPU LE COU.": GOTO 3670 

2780 PRINT: PRINT "UN ECLAIR VENU DE NULLE FART VO 

US FOUDROIE": GOTO 3670 

3790 PRINT: PRINT "LES ":0B#(27,1)3" NE FONT QU'UN 

E BOUCHEE DE VOUS !": GOTO 3670 

3800 PRINT: PRINT "CET ASCENCEUR N'A PAS DE BOUTON 

3810 PRINT"'MAIS IL SE MET EN MARCHE TOUT SEUL !" 
3820 FRINT "APRES QUELQUES INSTANTS, IL S'ARRETE E 

T LA PORTE S'OUVRE SUR... L'ENFER !" 

3830 GOTO 5670 pal 














CALCUL DE SURFACES 


Si vous n'aimez pas les calculs répétitifs ou si vous n'avez pas la mémoire des formules 


d'aire, voici de quoi vous montrer digne des espoirs 
que notre ministre de l'Éducation place en la jeunesse et en notre beau pays... 


Cédric Bonhommeau M 








300 S=RA*HA/2 
310 GOTO 480 
320 FRINT"Donnez-moi la grande base, la petite bas 
e et la hauteur" 
330 INPUT GB 
340 INPUT PH 
350 INPUT HA 
360 S=(GB+PE)*#HA/2 
370 GOTO 480 
380 FRINT"Donnez-moi la grande diagonale et la pet 
ite diagonale" 
390 INPUT GD 
400 INFUT PD 
410 S=GD*xPD/2 
GOTO 480 
4350 FRINT"'Donnez-moi le rayon“ 
440 INPUT R 
450 P1=3.14159 
460 S=PI*R4kR 
470 GOTO 460 
FRINT'"'Surface=":58S; "m2" 
PRINT "Voulez-vous recommencer 
PRINT"1@ - Qui“ 
PRINT"11 -— Non“ 
INPUT T 
CLS 
IF T=10 THEN 40@ 
IF T=1i1 THEN 560 
END 


10 REM Calcul de surfaces 

z@ CLS 

30 FRINT"Voulez-vous calculer l'aire d'un :" 

4Q FRINT"O - Carré" 

50 FRINT"'1 - Rectangle" 

60 FRINT"'2 - Triangle" 

70 PRINT"'S5 - Trapèze" 

8@ FRINT"4 -— Losange" 

90 PFRINT"'S - Cercle" 

100 PRINT"Tapez le chiffre de votre choix “;3:INFUT 


120 IF CH=Q THEN 180 

13Q IF CH=i THEN 220 

140 IF CH=2 THEN 270 

150 IF CH=T3 THEN 320 

160 IF CH=4 THEN 380 

170 IF CH=S5 THEN 430 

18@ FRINT"Donnez-moi la longueur du coté" 
198 INFUT CO 

20@ S=CO0*C0 

218 GOTO 480 

220 FRINT"Donnez-moi la longueur et la largeur" 
230 INFUT LA 

240 INFUT LO 

25@ S=LA*LO 

268 GOTO 489 

27@ PFRINT"Donnez-moi la base et la hauteur" 
280 INFUT BA 

29@ INFUT HA 


LIL 
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STRATÉGIE DU rene: 


mais aussi que ussi que la stratégie optimale à adopter par l'humain contre l'ordinateur 
9  mest Hs pas évidente, 


ñé 


LE 


A u commencement, la machine choi- 
sit une des deux lettres, À ou Z, 
que vous êtes invité à deviner. Si vous 
vous êtes trompé, elle répond « c'est 
faux », mais si vous avez deviné, elle peut soit 
l'avouer et vous payer un point, soit bluffer en vous 
répondant « c'est faux ». À ce stade, la machine 
vous pose la question « contrôlez-vous ? » ; si vous 
croyez qu'elle n'a pas bluffé, vous répondez « N » 
et Vous payez un point, sinon vous contrôlez par 
& O ». La machine révèle alors son choix, mais les 
enjeux sont doublés : si elle a bluffé, elle vous paie 
deux points, sinon c'est vous qui les payez. En 
appuyant sur une touche, vous passez à la 2e phase 
du jeu où les rôles sont inversés : vous pensez à une 
lettre que l'ordinateur doit deviner et vous pouvez 
bluffer. Une pression, et vous êtes reconduit à la 1 re 
phase. Un totalisateur indique le score du coup, le 
score cumulé et le nombre de coups joués. 

En jouant un nombre important de coups, vous êtes 
statistiquement sûr de perdre si vous adoptez l’une 
des stratégies suivantes : 

— ne jamais bluffer 

— toujours bluffer 

— bluffer une fois sur deux 
— ne jamais contrôler 

— contrôler une fois sur deux 
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Ji 


Alors quelle est la solution ? On démontre mathé- 
matiquement que c'est celle consistant à bluffer une 
fois sur trois et à contrôler deux fois sur trois. C'est 
naturellement cette stratégie qui a été programmée 
et, si vous l’adoptez à votre tour, vous pouvez espé- 
rer faire jeu égal avec le programme. 


P.-L. Gedo æ 















10 REM STRATEGIE DU FILOU 
20 REM AUTEUR : F. L, GEDO 

30 REM 

40 REM 1/ INITIATIVE À LA MACHINE 

50 CLEAR:GOSUR 450 

60 CLS:P#=""; Q$=""iRg="" 

78 X=1 

80 GOSUR 490:1IF RAN>.5 THEN F$="A" ELSE P#$="7" 
PRINT"1/ J'AI CHOISI UNE LETTRE (A OÙ Z)":REM P 


100 INFUT'"'2/ DEVINEZ. C'EST UN “;0# 

110 IF Q$<>"A" AND Q$<>"Z" THEN 60 

120 IF F#<:0$ THEN 140 

150 GOSUB 49@:1F RAN>1/3 THEN FRINT"3/ VOUS AVEZ KR 
AISON":G0OTO 360 

140 INPUT"3/ C'EST FAUX. 





CONTROLEZ-VOUS (O0 OÙ N) " 








IF R$<>"O0O" AND R#<>'"N" 
IF R#$='"N" THEN 370 

IF F#=0$ THEN PRINT"4/ J'AI EHLUFFE":GOTO 380 
PRINT'"4/ J'AVAIS UN “:P#:GOT0 399 

REM 

REM 2/ INITIATIVE À L'HUMAIN 

CLS: P#=""s0$=""sR#= NU" 

X=2 


THEN 60 











230 GOSUB 490:1F RAN>.S THEN PF#="A" ELSE F$="7" 
249 PRINT"1/ PENSEZ À UNE LETTRE (A QU Z)" 


250 A$=INFPUT#(1):REM Attend la frappe d'une touche 
260 FRINT"2/ EST-CE UN ";FP#;" (Q OÙ N) ";:INPUT R 
F2 


270 IF R#$<>"Q" AND R#$<>"N" THEN 210 

280 1F R$="O" THEN PRINT"3/ J'AI DEVINE":GOTO 37@ 

290 GOSUB 500:1F RAN<1/3 THEN PRINT"3/ JE VOUS CRO 
1S":GOTO0 360@ 

300 PRINT"'3/ JE CONTROLE. C'EST UN "3: INPUT. O$ 

310 IF Q$<>"A" AND Q$<>"Z" THEN 210 

320 1F F#=0$ THEN PRINT"4/ VOUS AVEZ BLUFFE":GOTO 

390 

330 PRINT"4/ JE ME SUIS TROMPE":GOTO 580 

340 REM 

350 REM AFFICHAGE 

360 M=M-1:H=H+1: PRINT: PRINT"'JE PERDS 1 POINT":GOTO 
400 

370 M=M+1:H=H-1: PRINT: PRINT"'JE GAGNE 1 PFOINT":GOTO 


400 
38Q M=M-2:H=H+2: PRINT: PRINT"'JE PFERDS 2 POINTS":GOT 
O 400 

390 M=M+2:H=H-2: PRINT: PRINT'JE GAGNE 2 
400 T=T+1 

41 IF T=1 THEN S$="COUF" ELSE S+="COUFS" 

42Q PRINT'SCORE : MACHINE "3M3" HUMAIN "3Hs;"/"3T3S 
$ 
430 
449 
450 
460 
470 
480 


POINTS" 


A$=INPUT#(1):REM Attend la frappe d'une touche 
ON X GOTO 210,40 

REM 

REM GENERATEUR ALEATOIRE 
RANDOMIZE 

C=RND (1) 
D=2235*C+49259281#:REM # : 
double précision 
C=D-(1E+1@+1)#INT(D/(1E+1@+1)) 
RAN=C/1E+10 

RETURN 


indicateur de nombre 
en 


0 


SYSTÈMES LINEAIRES 





1Q 
20 
30 
40 
50 
60 
7a 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
8Q KEM 
90 REM 
100 REM LOCATE X,Y :positionne le curseur ligne X, 
colonne Y 
11Q KREM LINE 
point (X1,Y1) au point 
120 REM 
130 CLS 
14G LOCATE 1,10:FRINT"'RESOLUTION DE SYSTEMES D'EQU 
ATIONS'': PRINT 

FRINT"'Système de 2 équations du premier degré 

è IANCONNUSS....scoo.s 1" 

FRINT'Système de 3 équations du premier degré 

inconnues, ...,. ar 

PRINT: INPUT"Votre choix "3;N 

IF N£èi AND N<>2 THEN 1500 

IF N=1 THEN 210 

IF N=2 THEN 590 

GOSUE 1:00 

CLS: LOCATE 2,2: INPUT "A="3A:LOCATE 2,14: INFUT"'E 
=";B:LOCATE 2,26: INPUT"C="$C 
230 LOCATE 4,2: INPUT"D=";D:LOCATE 4,14: INPUT"E=";E 
:LOCATE 4,26: INPUT"'F="3F 
240 LOCATE 6,10:1F B>=@ THEN PRINT AG'"X +"5B5;"Y =" 


RESOLUTION DE SYSTEMES D'EQUATIONS 
DU FREMIER DEGRE (2 À 3 INCONNUES) 


Collège Les Fres Classe de 3eme et 
Mme G.RAMBERT 63500 ISSOIRE 


Instructions à adapter 


trace une droite du 


(X1,Y1)—(X2,Y2) 
(X2,Y2) 


91 











Ce programme éducatif résoud des systèmes d'équations linéaires 


du premier degré à deux ou trois inconnues, 


avec affichage des calculs 
intermédiaires de détermination, 








3C ELSE FRINT Aj"X -";ABS(B)3;"Y =": C 

250 LOCATE 8,10:1F E>=Q THEN FRINT D;"X +"3E3"Y =" 

3F ELSE PRINT D;3"X -";ABS(E)5s"Y ="3:F 

260 LINE (72,36)-(72,66):LINE (72,36)-(76,36):LINE 
(72,66)-(76,66) 

270 DF=ÂAKE-B*xD: DX=CXE-B#F : DY=AKF-CKD 

280 PRINT: PRINT"Déterminant principal : "; DPF 

290 PRINT: PRINT'"Déterminant associé à X : ";DX 

300 PFRINT:FRINT'Déterminant associé à Y : “;:DY 

310 IF DF=2 AND DX=@ AND DY=@ THEN LOCATE 17,6:PRI 

NT"'CE SYSTEME EST INDETERMINE":GOTO 1420 

320 IF DF=Q AND (DX<>0 OR DY<>@) THEN LOCATE 17,6: 

FRINT"'CE SYSTEME EST IMPOSSIBLE":GOTO 142Q 

330 X=DX/DF:Y=DY/DP 

340 IF X=INT(X) AND Y=INT(Y) THEN LOCATE 17,10@:PRI 

NT'X="3; X:LOCATE 17,26: PRINT'"Y="3;Y ELSE 360 

350 LOCATE 20,12:PRINT"S="+CHR# (123) +" ("3x5 "gp" Ya" 


)"+CHR# (125) :GOTO0 1420 


360 
370 
380 
390 


400 
410 


420 


A1=ABS (DX) : Bi=ABS (DP) 

IF A1SB1 THEN Ti=Al:A1=EB1:B1=T1 
S1=INT (A1/EH1):R1=A1-B1#S1 

IF Ri=Q THEN Fi=B1:GOTO 41@ 


A1i=B1:Bi=R1:GOTO 380 
DX1=ABS (DX) /P1:DP1=AES (DP) /P1 


X1=SGN(X) #(DX1/DF1) 

430 IF X1=INT(X1) THEN LOCATE 17,1@:PRINT"X=";X1 
440 IF X1<2>INT(X1) AND X1>=0 THEN LOCATE 17,9:FRIN 
T'X=":LOCATE 16,12:PRINT USING'"###";DX1:LOCATE 18, 
12:PRINT USING"###"; DP1:LINE(93,132)-(119,132) 

450 IF X1<>INT(X1) AND X1<Q THEN LOCATE 17,8: PRINT 
"X=-"3LOCATE 16,12: PRINT USING'"###"; DX1:LOCATE 18, 
12:PRINT USING"###";DP1:LINE (93,132)-(119,132) 
468 A2=AES (DY) : E2=ABS (DP) 

470 IF AZ2<B2 THEN T2=A2:A2=EB2: B2=T2 

480 S2=INT(AZ/B2) :R2=A2-B2+*62 


Pour nos chères têtes blondes qui vont apprécier ! 
G. Rambert EH 
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SYSTÈMES LINÉAIRES 


490 IF R=@ THEN P2=B2:G0T0 510 

500 A2=B2:B2=R2:60T0 480 

310 DY2=ABS (DY) /P2:DP2=ABS (DP) /P2 

520 Y2=SGN(Y)+#(DY2/DP2) 

S30 1F Y2=INT(Y2) THEN LOCATE 17,26: PRINT"Y="; Y2 

540 IF Y2<>INT(Y2) AND Y2>=@ THEN LOCATE 17,26:PRI 

NT'"'Y=":LOCATE 16,28:PRINT USING"###";DY2:LOCATE 18 
28: PRINT USING"###"; DPZ:LINE (226,132)-(250,132) 

5390 IF Y2<2>INT(Y2) AND Y2<@ THEN LOCATE 17,25:PRIN 

T'Y=-":LOCATE 16,28: PRINT USING"“###";DY2:LOCATE 18 
328: PRINT USING'"###";DP2:LINE (226,132)-(250,132) 

360 IF X1<>INT(X1) AND Y2<>INT(Y2) THEN LOCATE 20, 

73 PRINT"S="+CHRS (123) +" ("3 SGNCX) #DX15"/";DP13"5"3S 

GNCY)#DY23;"/"3;DP23;")"+CHR# (125): GOTO 1420 

S7Q IF X1=INT(X1) AND Y2<>INT(Y2) THEN LOCATE 2,7 

s PRINT®S="+CHRS (123) +" ("3 X13 "5 "3 SGNCY) KDV23 "/"3 PP2 
3")"4+CHR$ (125) :GOTO 1420 

580 IF X1S>INT(X1) AND Y2=INT(Y2) THEN LOCATE 20,7 
: PRINT "S="+CHRS (123) +" ("; SGN(X) #DX153"/">DP1;"3 "5 V2 
5") "4+CHR# (125) :GOTO 1420 

590 GOSUR 1500 

608 CLS:LOCATE 2,2: INFUT"A="; A: LOCATE 2,10@:INPUT"B 

="3B:LOCATE 2,18: INPUT"C=";C:LOCATE 2,26: INPUT "D=" 

5D 

61@ LOCATE 4,2: INPUT"E=";E:LOCATE 4,10: INFPUT"F="3;F 
:LOCATE 4,18: INPUT"G=";G:LOCATE 4,26: INPUT "H="3H 

620 LOCATE 6,2: INPUT"M=";M:LOCATE 6,10: INPUT'N="S;N 
#LOCATE 6,18: INPUT"P=";P:LOCATE 6,26: INPUT"'R="3;R 

630 LOCATE 8,1@ 

640 1F (B>=@ AND C>=0) THEN PRINT A5"X +"3B3"Y #4"; 

C2 ="5D 

650 IF (B>=@ AND C<@) THEN PRINT A3ÿ"X +"3B3"Y "5 A 

BS(C);"Z =";D 

660 IF (E<@ AND C<@) THEN PRINT A;"X -":ABS(B)3;"Y 

—";ABS(C);"Z =";D 

670 IF (E<@ AND C>=0) THEN PRINT A;"X —"; ABS(B)3;"Y 
+"3Cs3"Z ="3D 

688 LOCATE 10,10 

“r IF 6 AND G>=0) THEN PRINT E;"X +"3F3"Y +": 
33"2 ="; 

700 IF (F>=@ AND G<@) THEN PRINT E3"X +"3F3"Y "54 

ES(G);"2z =";H 

710 IF (F<@ AND G<@) THEN PRINT E;"X —-";ABS(F)3;"Y 

-"sABS(G)3;"Z =";H 

720 IF (F<@ AND G6>=0) THEN PRINT Es"X —"3:ABS(F);"Y 
+": 63; "Z ="3:H 

73@ LOCATE 12,10 

74Q IF (N>=0 AND F>=0) THEN FRINT M;"X +"sNsUY +" 

PI"Z ="5:R 

750 IF (N>=@ AND P<@) THEN PRINT M;"X +"sN3"Y "5 A 

BS(P)3"Z ="$R 

76@ IF (N<@ AND F<@) THEN PRINT M;"X —"3;ABS(N):;"Y 

"3 ABS (P)3"Z =" R 

77@ IF (N<@ AND F>=@) THEN PRINT M;"X —"3ABS(N)3"Y 
PEPIT REP PR 

780 LINE (72,52)-(72,1@@):LINE (72,52)-(76,52):LIN 

E (72,100) -(76,10@0) 

790 D1=FxP-GxN: D2=BXxP-CxN: DS=EXG-CKF : D4=H4F-GKkR: DS 

=DXP-CxR: Dé=DxG-CxH: D7=F#XR-HXN: DE=BXxR-DXN: D9=EKXH-D 


DP=AxDi-ExD2+M#D3 
DX=D#D1-HxD2+R#D5 
DY=AXD4-EXxD5+MxDé 
DZ=A*D7-E#xD8+MxD9 
PRINT: PRINT'Déterminant principal :";DF 
IF DF=Q THEN FRINT"'CE SYSTEME EST INDETERMINE 
MPOSSIBLE":GOTO 1220 
86 FRINT"Déterminant associé à X :";DX 
87Q FRINT'"Déterminant associé à Y :";DY 
880 PRINT'"'Détreminant associé à Z :";DZ:FPRINT:PRIN 
ï 
89@ X=DX/DF:Y=DY/DP:Z=D2/DF 
* 908 IF X=INT(X) AND Y=INT(Y) AND Z=INT(Z) THEN LOC 
ATE 20,4:PRINT" X=";X:LOCATE 20,17: PRINT" Y="3Y:LO 
CATE 20,30:PRINT" Z=";Z:GO0OTO 1460 
910 A1=ABS (DX) : H1=AES (DPF) 
920 IF A1<E1 THEN Ti=A1:A1=B1:B1=T1 
930 SI=INT(A1/EB1):Ri=A1-B1xS1 
940 IF R1=Q THEN Fi=ER1:GO0OTO 960 
950 Ai=R1:B1=R1:G0OTO 930 
96 DX1=ABS (DX) /P1:DPF1=ABS (DPF) /PF1 
97 X1=SGN(X)#(DX1/DF1) 
980 IF X1=INT(X1) THEN LOCATE 20,6:PRINT"X="35; X1 
990 IF X1<7INT(X1) AND X1>=0 THEN LOCATE 20,6:PRIN 
T'X=":LOCATE 19,8: PRINT USING"###"; DX1:LOCATE 21,8 
2PRINT USING"###";DP1:LINE (64,156)-(88,156) 
1000 IF X1<>INT(X1) AND X1<@ THEN LOCATE 20,5:PRIN 
T'X=-":LOCATE 19,8:PRINT USING"###";DX1:LOCATE 21, 
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S:PRINT USING"###"; DP1:LINE (64,156) -(88,156) 

101@ A2=AES (DY) : B2=ABS (DP) 

1020 1F A2<B2 THEN T2=A2:A2=B2:B2=T2 

1050 S2=INT(A2/B2) :R2=A2-B2#x52 

1040 IF R2=Q THEN P2=B2:GO0OT0 1060 

1050 A2=B2:E2=R2: GOTO 1030 

1060 DY2=ABS (DY) /P2:DF2=ABS (DP) /F2 

107@ Y2=SGN(Y)*#(DY2/DFP2) 

1080 IF Y2=INT(Y2) THEN LOCATE 20,16:PRINT"Y=" 3; Y2 
109Q IF Y2<>INT(Y2) AND Y2>=0 THEN LOCATE 20,16:PR 
INT"Y=":LOCATE 19,18: PRINT USING"###"3;DY2:LOCATE 2 
1,18: PRINT USING'"'###"; DP2:LINE (144,156)-(168,156) 
1100 IF Y2<>INT(Y2) AND Y2<@ THEN LOCATE 20,15:PRI 
NT'"Y=-": LOCATE 19,18: PRINT USING"###";DY2:LOCATE 2 
1,18:FRINT USING"###"; DP2:LINE (144,156)-(168,156) 
1110 AS=ABS (DZ) : B3=ABS (DF) 

1120 IF ASS THEN T3=A3: AS=B3: BS=T3 

1130 SS=INT (AS/EB3S) :R3S=AS-R3#S3 

1140 IF R3=Q THEN P3=B3:GOTO 1160 

1150 AS=B3:ES=R3: GOTO 1130 

116Q DZ3S=ABS (DZ) /P3: DPS=ABS (DP) /P3 

117Q Z3=SGN(Z)#(DZ3/DP3) 

11890 IF ZS=INT(ZS) THEN LOCATE 20,26: PRINT"Z="3 73 
119Q IF ZS<>INT(Z3S) AND Z3>=Q THEN LOCATE 20,26:PR 
INT"Z=":LOCATE 19,28: FRINT USING"###";DZ3:LOCATE 2 
1,28:PRINT USING'"###";DPS:LINE (224,156)-(248,156) 
1200 IF Z3S<>INT(Z3) AND Z3<Q@ THEN LOCATE 20,25:PRI 
NT"Z=-": LOCATE 19,28: PRINT USING"###":;DZ3:LOCATE 2 
1,289:PRINT USING'"'###"; DPS:LINE (224,156) -(248,156 
) 

1210 GOTO 144@ 

1220 IF AxF-E*E<>0 OR ExN-FxM<>0 OR AXN-ExM<>0 THE 
N PRINT'"'Déterminant caractéristique :"*;DZ:GOTO 125 
[a] 

1230 IF D3<>0 OR D1<>@ OR D2<>QG THEN PRINT"Détermi 
nant caractéristique :";DX:GOTO 126@ 

1240 IF AxG-CxE<>0 OR ExF-GxM<Q OR AxF-CxM<>@ THE 
N FRINT"Déterminant caractéristique :";:DY:GOTO 127 
6 


1250 1F DZ=Q THEN FRINT:FRINT"'CE SYSTEME EST INDET 


ERMINE FAR RAFFORT À Z'":GOTO 1460 

1260 1F DX=Q THEN PRINT: PRINT"CE SYSTEME EST INDET 
ERMINE FAR RAFFORT À X'":GOTO 1460 

127 IF DY=Q THEN PRINT:PRINT"CE SYSTEME EST INDET 
ERMINE PAR RAFPORT À Y";GOTD 1460 

1280 FRINT:PRINT"'CE SYSTEME EST IMPOSSIBLE": GOTO 1 
46@ 

1290 GOTO 1460 

1300 CLS:LOCATE 3,5:FRINT" Dans ce programme, la 
résolution des systèmes s'effectue par la méthode 
dite ‘des déterminants." 

131@ PRINT:PRINT" Cette méthode s'applique à de 
S systèmes mis sous la forme: ":PRINT: PRINT 

132@ PRINT" AX+EY=C AX+EY+CZ=D" 

1330 PRINT" DX+EY=F EX+FY+6Z=H" 

134Q PRINT" MX+NY+PZ=R" 

1350 LINE (59,71)-(50,87):LINE (50,71)-(56,71):LIN 
E (50,87)-(56,87) 

136Q LINE (170@,71)-(170,95):LINE (170,71)-(176,71) 
LINE (170,95)-(176,95) 

13570 PRINT:PRINT 

138Q PRINT‘ A,B,C,D,E,F,G,H,M,N,F et R étant des 
"PRINT: LOCATE 18,12:PRINT" ENTIERS RELATIFS " 
1390 PRINT:PRINT:LOCATE 21,3:PRINT"'AVANT DE COMMEN 

CER, "sLOCATE 22,3:PRINT'TRANSFORMEZ VOS SYSTE 

MES" 

1400 LOCATE 23,32: PRINT"<RETURN>" 

1410 X#=INKEY#:1F X$=CHR$ (13) THEN RETURN ELSE 141 

La] 

1420 LOCATE 22,1: INPUT"VOULEZ-VOUS RESOUDRE UN AUT 

RE SYSTEME DU MEME TYPE (S) , REVOIR LE MENU (M) 
OÙ AVEZ-VOUS TERMINE (F) ";R# 

14350 IF R$="S" THEN 220 

144Q IF KR#$="M" THEN CLS:GO0TO 150 

1450 IF R$="F" THEN CLS:LOCATE 13,1@:PRINT"AU REVO 
IR" :END 

1460 LOCATE 22,1: INPUT"VOULEZ-VOUS RESOUDRE UN AUT 

RE SYSTEME DU MEME TYPE (S) , REVOIR LE MENU (M) 
OÙ AVEZ-VOUS TERMINE (F) "ÿ3R#$ 

1470 IF R$="S" THEN 400 

1480 IF R$="M" THEN CLS:GOTO 150 

1490 IF R$="F" THEN CLS:LOCATE 13,1@:PRINT"AU REVO 
IR" :END 

1500 CLS:LOCATE 11,1:PRINT"'VOULEZ-VOUS FAIRE ATTEN 

TION AU TEXTE !!":PRINT:PRINT" RECOMMENCEZ t11" 
1510 LOCATE 24,30:PRINT"'<RETURN>" 

1520 XF=INKEY#S:IF X#=CHR#(13) THEN CLS:GOTO 150 EL 

SE 1520 














AUTOMATE 
DÉCODEUR 
DE MASTERMIND 


Qui n'a pas dans sa ludothèque un programme de Mastermind de son eru ? 
Nous ne vous ferons pas l’injure de vous en proposer un, 
car le vôtre est sûrement excellent mais, comme Ia plupart de ses semblables, 
il doit être uniquement codificateur : VAR.) 


il génère un code secret que vous êtes invité  — N— 
ne. 











à découvrir en un minimum de coups. 


_Le programme que nous vous 
présentons assure la fonction inverse, 








ous cachez un code et c'est 
le programme qui joue le rôle 
de l’« humain », posant les ques- 
tions sous forme de propositions 
auxquelles vous devez répondre 
par une cotation ; celle-ci est de 
la forme NB, N le nombre de 
« noirs » et B le nombre de 
« blancs ». Le code caché est 
toujours trouvé en cinq coups au 
maximum. Les règles sont celles | 
du Mastermind classique à qua- 
tre positions et six couleurs, repré- 
sentées par les lettres À à F 
P-L. Gedo H 
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AUTOMATE DÉCODEUR DE MASTERMIND 


18 
20 


Initialisation 


CLS: CLEAR 


30 ON ERROR GOTO 11@ 


40 


50 


GOSUB 1350 


Froposition 1 


60 E=1122:GOSUB 250@:0N M GOSUB 730,870,870,1000,11 


30, 


1270,1400,1410,1510,1520,1530,0,1540,1550 


7Q IF E=@ THEN 110 
80 GOSUE 250:G6G0SUB 480 
9Q GOSUE 2S0:G0SUB 480 


100 
110 
120 
130 


GOSUE 250 

PRINT'"'Erreur de cotation. Vérifiez ":END 
Variables aléatoires 

S=VAL(RIGHT#$(TIMES,2) ) 


788 
790 


E=4465:RESTORE 
E=5646:RESTORE 


TO 440 


E=4653:RESTORE 
E=5354 : RESTORE 
44Q 

E=3465:RESTORE 
E=35464:RESTORE 
E=4533:RESTORE 
E=3453:RESTORE 
E=5435:RESTORE 


1610:RETURN 


1620: GOSUB 250:E-=-4546* (N=1) : 60 


1630: RETURN 


1640: GOSUB 2S0:E=-4336#(N=.2):6 


1650:RETURN 
1660: RETURN 
1670:RETURN 
1680: RETURN 
1690: RETURN 


E=2344:GOSUB 250:0N M GOTO 
:930,940,950,960,970,0,980,990 
880 E=561S:RESTORE 1700:RETURN 


880,890,900,910,920 


140 FOR K=1 TO S:A=RND(1):NEXT K 

150 FOR 1=1 TO 6 

160 B(I)=1+INT(6#RND (1) ):R=S+INT (3#RND (1) ) 
17© FOR J=Q TO 1-1 

180 IF B(I)=B(J) THEN B(I1)=@:GOTO 160 

19Q NEXT J 


890 E=3S16:RESTORE 1710:GOSUB 250:E=-4566% (N=1,2)- 
3315%(N=3) -4561%(N=2.2):GOT0 440 

700 E=3315:RESTORE 1720:RETURN 

910 E=S523%36:RESTORE 1730:GOSUB 250:E=-3255% (N=2.2)- 
6243#(N=1.2):GOTO 44@ 

920 E=4415:RESTORE 1740:GOSUB 2S0:E=-4256% (N=1. 1): 


200 
219 
220 
230 
240 
250 
260 
270 


READ L#(B(I)) 

NEXT I 

DATA A,E,C,D,E,F 
RETURN 
REM-------fAffichage 
U=U+1:E(U)=E: GOSUE 340 
PRINT Us"/ Essai=";A#; 
IF U£S THEN INPUT" 








N="3N:INÇ(U)=N ELSE PRINT 


LL FIN" 
280 IF U=1 THEN F$#="Coup" ELSE F#="Coups" 
290 IF N=4 OR U=S THEN FRINT'"Gain en "s;U;P#:END 
300 M=-(N=0)-2+# (N=. 1) -3x(N=1)—-4% (N=,2) -5%(N=1. 1) -6 
#(N=2) —-7% (Ne, 7) -8%(N=1.2)-9%(N=2, 1) -10% (N=3S) -11%(N 
=,4)-12*(N=1.3)-13%*(N=2.2) 
310 IF E=0 OR M=Q THEN 110 
328 RETURN 
Variables alphanumériques 
340 E$=STR$(E):A$="" 
350 FOR 1=2 TO 5 
360 F(I)=VAL(MID#(E#,1,1)) 
370 IF N(1)=1 THEN IF F(1)=2 THEN F(I1)=1 ELSE IF F 
(1)=1 THEN F(1)=2 
380 T#(I)=L#(F(I1)) 
390 NEXT I 
400 W$=T# CRI: TF(R)IETH (2): TH (21=W$ 
410 FOR J=2 TO S:A$=A$+T$(J):NEXT J 
42 RETURN 
430 REM------- Fropositions incompatibles 
44Q IF E=Q THEN 480 
450 E(4)=E 
46Q RETURN 
470: REM---- m0 Filotage proposition 4 et 5 
480 I=1 
490 READ C 
500 IF C=Q THEN 110 
S10 IF Z=Q THEN 550 
520 E=E(2):GOSUB S90:1F N<>N(2) THEN I=l+i:1F 1<>4 
& THEN 490 
SS0Q E=E(S):GOSUB S90:1F N2N(3S) THEN I=I+i:1F 1<2>4 
& THEN 490 
SA4Q IF Z=1 THEN 560 
550 E=E(4):GOSUR S90:1F Né2N(4) THEN I=I+i:1F 1<2>4 
6 THEN 490 : 
560 
570 
580 Cotation 
590 Ef$=STR$(E) : C$#=STRS (C) 
608 X=0:Y=0 
610 FOR K=2 TO 5 
620 E$(K)=MID#(E#$,K,1) 
630 CF(K)=MID#(C$,K,1) 
640 IF Ef(K)=C#$(K) THEN X=X+1 
650 NEXT K 
660 FOR 1=2 TO S:FOR J=2 TO 5 
67Q IF E$(1)=C#(J) THEN C#(J)="":Y=Y+1: GOTO 69Q 
680 NEXT J 
698 NEXT I 
708 N=X+(Y-X) /10 
710 
720 Propositions 2 et 3 
730 E=354S:GOSUB 250:0ON M GOTO 740,750,760,770,780 
,:770,800,810,820,830,840,850,860 
740 E=6666:RESTORE 1570:RETURN 
750 E=4666:RESTORE 1580:RETURN 
760 E=4646:RESTORE 1590:RETURN 
770 E=45S6:RESTORE 1600:RETURN 
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GOTO 440 


750 
740 
950 
9760 
970 
780 
990 


1000 E=2524:GOSUR 250:O0N M GOTO 1010,1@20,1030,104 
0,1050,1060,1070,1080,1090,1100,0,111@,1120 
1820: GOSUE 2S50:E=-5616%* (N=Q) : G 


1801@ 


E=2546: RESTORE 

=323$:RESTORE 
E=6243:RESTORE 
E=2445: RESTORE 
E=23545: RESTORE 
E=4234:RESTORE 
E=2434:RESTORE 


E=5616:RESTORE 


OTO 448 


1220 
1830 
1040 
1850 
1068 
1a7@ 
1082 
1890 
1100 
1110 
1120 
1130 


1140 
1150 
1160 
1170 
1180 


E=5215: RESTORE 
E=2515:RESTORE 
E=3215:RESTORE 
E=2451:RESTORE 
E=2351:RESTORE 
E=3241:RESTORE 
E=2235: RESTORE 
E=2256:RESTORE 
E=2314:RESTORE 
E=2243:RESTORE 
=2234: RESTORE 


E=1314:GOSUE 250: ON M GOTO 1140,1150,1140,11 
70,1180,1190,1200,1210,1220,1230,1240,1250,1260 


E=6262:RESTORE 
E=2462:RESTORE 
E=6251:RESTORE 
E=2153:RESTORE 
E=1246:RESTORE 


:G0T0 440 


1190 
1200 
1210 
1220 
12530 
1240 
1250 
1260 
1270 


1260 


E=5611:RESTORE 
E=4151:RESTORE 
E=1541:RESTORE 
E=1351:RESTORE 
E=4641:RESTORE 
E=3141:RESTORE 
E=1431:RESTORE 
E=1341:RESTORE 


E=1234:GOSUB 250:0N M GOTO 0,1280,1290,1300,1 
310,1320,1330,1340,1350,1360,1370,1380,1390 


E=6522: RESTORE 


1290 E=2151:RESTORE 


1300 


E=3582:RESTORE 


1310 E=1526:RESTORE 


1320 


E=6531:RESTORE 


1330 E=4125:RESTORE 


1340 


E=1352:RESTORE 


1350 E=5624:RESTORE 


1360 


E=1134;:RESTORE 


1370 E=3142:RESTORE 


1380 


E=1342:RESTORE 


1390 E=1324:RESTORE 


1400 
1410 


E=2624:RESTORE 


E=1213:GOSUE 250:0N M GOTO @,0,0,1420,1430,14 


1750: RETURN 
176@:RETURN 
1770: RETURN 
1780:RETURN 
1790: RETURN 
1800: RETURN 
1810:RETURN 


1830: RETURN 
1849: RETURN 
1850: RETURN 
1860: RETURN 
1870: RETURN 
1880:RETURN 
1890:RETURN 
1900: RETURN 
1910: RETURN 
1920:RETURN 
1930: RETURN 


1940: RETURN 
1950: RETURN 
196@: RETURN 
1970: RETURN 
1990: GOSUB 250:E=-6361#(N=1. 1) 


1990: RETURN 
2000: RETURN 
2010:RETURN 
2020: RETURN 
2030: RETURN 
2040: RETURN 
2050: RETURN 
2060: RETURN 


2070: RETURN 
2080: RETURN 
2090: RETURN 
2100:RETURN 
2110:RETURN 
2120: RETURN 
2130: RETURN 
2140:RETURN 
2150: RETURN 
2160:RETURN 
2170:RETURN 
2180:RETURN 


2190: Z=1:RETURN 


40,1450,1460,1470,1480,1490,0,1500 


1420 
1450 
1440 
1450 
1460 
147Q 
1480 
1490 
1500 
1510 


E=4521:RESTORE 
E=4521:RESTORE 
E=4531:RESTORE 
E=2145:RESTORE 

=2145:RESTORE 
E=1245:RESTORE 
E=1245:RESTORE 
E=21351:RESTORE 
E=1231:RESTORE 
E=12237:RESTORE 


2200: RETURN 
221@:RETURN 
2220:RETURN 
2230: RETURN 
2240: RETURN 
2250: RETURN 
2260:RETURN 
2270: RETURN 
2280:RETURN 


2290: 7Z=1:G6O0SUB 250:E=-4512%((N 





=,2)+(N=1. 1) +(N=2) )-2145% ((N=. 3) + (N=1.2) )-1245% CN 
=2.1)+(N=3)):GOTO 440 

1520 E=2526:RESTORE 2300:Z=1:GOSUR 250:E=-4112% (N= 
.1)-4121#(N=1)-1224%(N=1: 1): GOTO 440 

1530 E=2211:RESTORE 2310: Z=1:RETURN 

1540 E=1312:RESTORE 2320: Z=1:GOSUR 250:E=-2121% (N= 
.3)-1221#(N=1.2)-2112%(N=2.1)-1212* (N=3) :GOTO 440 

1550 E=1122:RESTORE 2330: RETURN 

1560 REM 

1570 DATA 6666,0 

1580 DATA 6636,4464,4466,4664,4666,5556,5566,5656, 
5666 ,6464,6466,6556,6566,6656, 6663, 6664 , 0 

1590 DATA 3666,4444,4446,4644,4646,5555,5565,5655, 
5665,6366,6444,6446,6555,6565 , 6644 ,6646,8655,6665, 
a 


1600 DATA 4566,4636,4654,6564,4434,4436,4454,4456, 
4463,4554,4556,4564,4634,4656,4663,5454,5456,5464, 
5466,5536,5553,5554,5563,5564,5636,5653,5654,5663, 
5664 ,6434,6436,6454,6456,6483,6536,6553,6554,6563, 
6633,6634,6653,6654,0 

1610 DATA 4665,5635,5646,3464,3466,3556,3566,3633, 
3636,3656,3663,3664,4364,4366,4443,4455,4465,4544, 
4546,4555,4565,4843,4655,5356,5366,5444,5446,5455, 
5465,5535,5544,5546,5644,6333,6336,6356,6363,6%64, 
6443,6455,6465,6535,6544,6546,6635,6643,0 

1620 DATA 3565,3655,3333,5336,3363,3366,3444,3446, 
3555,3644,3646,3665,4344,4346,4445,4545,4646,5355, 
5365,5445,5545,5645,6344,6346,6355,6365,6445,6545, 
6645,0 3 

1630 DATA 4433,4453,4534,453%6,4553,4563,4633,4853, 
5434,5436,5453,5463,5533,5534,5635,5634,6433,6453, 
6533,6534,0 

164 DATA 3634,4543,5336,3433,3434,3436,3454,3456, 
3463,3533,3536,3553,3554,3563,3564,3653,36S4 ,4333, 
4334,4336,4354,4256,4363,4415,4535,4635,5333,5353, 
5354,5363,5364,5435,5443,5543,5643,6334,6353,6354, 
6435,6543,0 

1650 DATA 3334,3353,3356,3364,3443,3455,3465,3535, 
3544,3546,3635,3643,4343,4355,4365,5335,5344,5346, 
6335,6343,0 

1660 DATA 3335,3343,3344,3346,3355,3365,3445,3545, 
3645,4345,5345,6345,0 

1670 DATA 4535,5433,0 

1680 DATA 345%,2534,4353,5334,0 

1690 DATA 34:5,3354,3548,4339,5243,0 

1700 DATA 5616,5515,5516,5551,5561,5615,5651 , 5661, 
6515,6516,6551,6561,6615,6616,6651 ,6661,0 

1710 DATA 3551,5613,6255,3513,2515,3916,39%1,3561, 
3612,3615,3616,36%1,3651,%661,4515,4516,4551,4561, 
4615,4616,4651,4661,5255,5256,5265,5266,5415,5416, 
5451,5461,5513,5531,5631,6256,6265,6266,6415,6416, 
6451,6461,6513,6531,661%,6631 ,0 

1720 DATA 2566,3316,5361,5614,5641,6614,2555,2556, 
2565,2655,2856,2665,2666,3313,3315,3381,3391,3861, 
5313,5315,5316,5331,5351,5514,5541,6313,6315,6316, 
6331,6351,6361,6514,6541,6641,0 

1730 DATA 3451,4266,4415,3233,3235,3236,23253,3255, 
3256,3263,35265,3266,3413,3415,3416,3431,3461,4295, 
4256,4265,4416:,4451,4461,4515,4531,461%,4631,5233, 
5235,52%6,5293,5263,5413,5431,6233,6235,6236,62S3, 
6263,6413,6431,0 é 

1740 DATA 2465,2536,2636,4351,4614,5246,2455,2456, 
2466,2533,2535,2553,2563,2633,2635,2653,2663,3514, 
3541,5614,3641,4313,4515,4%16,4331,4%61,4414,4441, 
4514,4541,4641,5245,5254,5264,5414,5441,6245,6246, 
6254,6264,6414,6441,0 

1750 DATA 2333,2335,2336,2353,2355,2356,22%63,2365, 
2%66,2545,2546,2554,2564,2645,2646,2654,2664,3314, 
3341,5314,5341,6%14,6341,0 

1760 DATA 4233,4235,42%6,4253,426%,4413,4431,0 
1770 DATA 2453,2432,2435,2436,2463,3234,3243,3245, 
3246,3254,3264,2414,3441,4245,4246,4254,4264,52%4, 
5243,6234,6243,0 

1780 DATA 4244,2445,2446,2454 ,2464,2534,2543,2634, 
2643,4314,4341,5244,6244,0 

1790 DATA 2334,2343,2345,2346,2354,2364,2444,2544, 
2644,0 

1800 DATA 4234,4243,0 

1810 DATA 2434,2443,3244,0 

1820 DATA 5511,5611,6511,6611,0 

1830 DATA 3511,3611,4411,4511,4611,5215,5216,5251, 
5261,5411,6215,6216,6251,6261,6411,0 

1840 DATA 2515,2516,2551,2561,2615,2616,2651,2661, 
3311,5311,6311,0 

1850 DATA 4261,3213,3215,3216,32%1,3251,3261,3411, 
4215,4216,4241,4251,5213,52%1,5241,6213,6231,6241, 





a , 
1860 DATA 2255,2256,2265,2266,2415,2416,2441,2451, 
2461,2513,2531,2541,2613,2631,2641,4214,4311,5214, 
6214,0 

1870 DATA 2313,2315,2%16,23%1,2251,2361,2414,2514, 
2614,0 

1880 DATA 3241,4213,4231,0 

1890 DATA 2233,2235,223%6,2245,2246,2253,2263,2413, 
2431,3214,0 

1900 DATA 2244,2254,2264,2341,0 

191@ DATA 2314,0 

1920 DATA 2243,0 

1930 DATA 2234,0 

1940 DATA 2225,2226,2252,2262,2525,2526,2552,2562, 
2625,2626,2652,2662,5225,5226,5252,5262,6225,6226, 
6252,6262,0 

1950 DATA 2425,3252,4252,5223,2155,2156,2165,2166, 
2223,2232,2242,2426,2442,2452,2462,2523,2532,2542, 
2623,2632,2642,3223,3225,3226,3232,3262,4225,4226, 
4242,4262,5232,5242,5521,5621,622%,6232,6242,6521, 
6621,0 

1960 DATA 2326,1255,1256,1265,1266,2224,2323,2325, 
2332,2352,2362,2424,2524,2624,4224,5224,5512,5612, 
6224,6512,6612,0 

1970 DATA 4521,4621,5151,2133,2135,2136,2145,2146, 
2153,2163,2423,2432,3242,3521,3621,4223,4232,4421, 
5161,5421,6151,6161,6421,0 

1980 DATA 1235,4512,4612,1233,1236,1245,1246,1253, 
1263,1551,1561,1651,1661,2144,2154,2164,2342,3224, 
3321,3512,%612,4412,5111,5115,5116,5321,5412,6111, 
6115,6116,6321,6412,0 

1990 DATA 1244,1254,1264,1511,1515,1516,1611,1615, 
1616,2324,3312,5312,6312,0 

2000 DATA 3161,4141,2143,31%31,3151,3421,4151,4161, 
5131,5141,6131,6141,0 

2010 DATA 3116,1243,1441,1451,1461,1531,1541,1631, 
1641,2154,3111,9113,3115,3412,4111,4115,4116,4321, 
5113,6113,0 

2020 DATA 1234,1331,1351,1361,1411,1415,1416,1513, 
1613,4114,4312,5114,6114,0 

2030 DATA 1311,1313,1315,1316,1414,1514,1614,0 
2040 DATA 3141,4131,0 

2050 DATA 1431,4113,0 

2060 DATA 1341,1413,3114,0 

2070 DATA 6522,2522,2622,5522,5622,6622,0 

2080 DATA 1111,1115,1116,1151,1155,1156,1161,1165, 
1166,2222,5222,6222,0 

2090 DATA 4622,2322,2422,3322,3522,3622,4422,4522, 
5125,5126,5152,5162,5322,5422,6125,6126,6152,6162, 
6322,6472,0 

2108 DATA 1113,1141,1145,1146,1153,1163,1525,1526, 
1552,1562,1625,1626,1652,1662,3222,4222,0 

2110 DATA 1114,1131,1133,1135,11%6,1144,1154,1164, 
a 

2120 DATA 3126,3123,3125,3152,3162,3422,4125,4126, 
4142,4152,4162,4322,5123,5142,6123,6142,0 

2130 DATA 1462,3132,114%,1323,1325,1326,1352,1%62, 
1425,1426,1442,1452,152%,1542,1623,1642,4124,5124, 
5132,6124,6132,0 

2140 DATA 1332,1424,1524,1522,1624,16%2,0 

2150 DATA 1134,0 

2160 DATA 3142,4123,0 

2170 DATA 1342,1423,3124,4132,0 

2180 DATA 1324,1432,0 

2190 DATA 2213,2214,2215,2216,2231,2241,2251,2261, 
2311,2411,2511,2611,3211,4211,5211,621t,0 

2200 DATA 2421,2521,2621,0 

2210 DATA 2221,2412,2512,2612,4221,5221,6221,0 
222@ DATA 2212,4212,5212,6212,0 

2230 DATA 2141,2151,2161,2321,0 

2240 DATA 2111,2114,2115,2116,2312,3221,0 

2250 DATA 1241,1251,1261,3212,0 

2268 DATA 1211,1214,1215,1216,0 

2270 DATA 2131, 

2280 DATA 2113,0 

2290 DATA 1223,1224,1225,1226,1232,1242,1252,1262, 
1312,1321,1412,1421,1512,1521,1612,1621,2123,2124, 
2125,2126,2132,2142,2152,2162,3112,%121,4112,4121, 
5112,5121,6112,6121,0 

2300 DATA 1112,1121,1123,1124,1125,1126,1132,1142, 
1152,1162,1222,1322,1422,1522,1622,2122,3122,4122, 
5122,6122,0 

2310 DATA 2211,0 

2320 DATA 2121,1221,2112,1212,0 
2330 DATA 1122,0 
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LE MESSI 
ARRIVÉ... 


Voici enfin parmi nous 

le Messager Informatique. 
Qu'est-ce que vous dites ? 

Mais si, c'est un programme ! 

$a mission est de gérer 

une boîte aux lettres informatique. 











our cela est attribué à chaque 
F utilisateur un numéro de code 
personnel qui lui permet d'accéder 
en toute confidentialité aux mes- 
sages le concernant. Chaque uti- 
lisateur peut émettre ou recevoir 
des messages en direction ou en 
provenance de tout autre utilisa- 
teur. Un dernier point, lors de la 
première mise en œuvre, faites un 
RUN 700 pour initialiser le fichier 
et définir une bonne fois pour tou- 
tes les noms et codes des utilisa- 
teurs. 
A vous d'envoyer désormais. 
G. Touliat 
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10 REM Instructions spécifiques à adapter listées 
de 660 à 6490 

20 CLS 

30 FRINT'"'Boîtte à messages":PRINT: PRINT 

4Q FRINT"Un peu de patience SVF..,." 

50 OPEN "CODES" FOR INFUT AS #2 

6@ INFUT#2,NU 

70 DIM NUS (NU) ,C#$ (NU) ,M# (NU, NU) 

80 FOR I=1 TO NU 

90 INPUT#2,N#(1) ,C#(1) 

108 NEXT I 

118 CLOSE ê 

120 OPEN "MESSAGES" FOR INFUT AS #2 

130 INFUT#2,F 

140 IF F=Q THEN 190 

15Q FOR I=i TO NU 

160 FOR J=1 TO NU 

170 INPUT#2,M#(1,9) 

180 NEXT J:NEXT I 

190 CLOSE 

298 GOSUB 2464@ 

210 AF=INKEYS 

220 1F A$="1" THEN GOSUB 619:G0SUR 320:GOSUEB 260:6 
OTO 210 

230 1F A$="2" THEN GOSUB 610:GOSUER 400:GOSUE 2Z60:6G 
OTO 210 

240 IF A$="3" THEN GOSUB S10:GOSUR 269 

220 GOTO 21Q 

260 CLS 

270 PRINT"1. Emettre un message" 

280 PFRINT"2. Consulter son casier" 

290 PRINT"3. Fin de journée" 

30@ FRINT:PRINT"Choix 7" 

31@ RETURN 

320 PRINT'"'Emettre":PRINT 

330 INFUT"Votre numéro d'utilisateur ";L 

340 1F L<@ OR L>NU THEN 33@ 

350 INPUT'"Le numéro du destinataire ";C 

36Q 1F C<@ OR C>NU THEN 3550 

370 PRINT:PRINT"'De "3N#(L)3" à "3 NS CC) : PRINT 
380 INPUT"Message : ";M#(L,C) 

398 RETURN 

40G FRINT"Consulter le casier" 

418 INPUT"Votre numéro d'utilisateur ";Ll 

420 IF L<O OR L>NU THEN 419 
430 INFUT"Votre code d'accès 
$(L) THEN RETURN 

440 FOR I=1i TO NU 

450 FRINT 

468 PRINT"De "3;N#(I)5" : "=: PRINT 
47@ PRINT M#(I,L) 

480 NEXT I 

490 FOR J=1 TO NU*1@O00:NEXT J:REM Temporisation po 
ur lecture 


500 RETURN 

510 CLS 

520 FRINT"Sauvegarde..." 

530 OPEN "MESSAGES" FOR OUTPUT AS #2 

540 FRINT#2,1 

550 FOR I=1 TO NU 

560 FOR J=1 TO NU 

570 WRITE#H2,M#(I,J) 

580 NEXT J:NEXT I 

590 CLOSE 

600 RETURN 

61@ CLS 

620 FOR 1=1 TO NU 

630 FRINT I,N#{(I), 

64Q NEXT I:PRINT:PRINT 

650 RETURN 

660 REM lignes 50,120 : ouverture de fichier pour 
lecture en mémoire 

67Q REM lignes 53:0,840,900 : idem pour sauvegarde 
sur disque 

68Q REM CLOSE : fermeture des fichiers 

670 REM WRITE# : écriture séquentielle sur disque 
avec Séparation des élements 

700 REM Fartie à exécuter avant première utilisati 
on 

71@ CLS 

20 FRINT'"'Bofte à messages : routine préliminaire" 
730 PRINT: PRINT:PRINT 

740 INPUT'"'Nombre d'utilisateurs +: ‘“3NU 


"sC$:IF C$<2C 


ns 





DIM N# (NU) ,C#$ (NU) 

FOR I1=1 TO NU 

CI.S 

PRINT'Utilisateur "5 1:PRINT:FRINT: PRINT 
INPUT "Votre nom ";N#(I) 


INFUT"Votre code ";C#(1) 

PRINT: INFUT'"Apprenez-le par coeur, puis frappe 
SRETURNE "35R# 

NEXT 1! 

CLS 


OFEN "CODES" FOR OUTFUT AS #2 
FRINT#2,NU 

FOR I=1 TO NU 
WRITEHZ,NE(L) ,C# (1) 

NEXT I 

CLOSE 

OFEN "MESSAGES" FOR OUTPUT AS #2 
WRITE#2,0 

CLOSE 

END 








PETITE MULTIPLICATION 
GRANDE PRECISION 


Ce programme ultra-court donne le produit de deux nombres de 255 chittres au plus. 
Laccent a été mis sur l'économie de temps et d'octets, ainsi que sur la présentation du 


résultat, dont les chiffres sont groupés par huit. 
Vous obtenez ainsi un rapport puissance/taille inégalé... 





Pierre Barnouin 


100 REM DEFDEL A-H : À à H en double précision 

110 REM # : constante en double précision 

120 DEFDEL A-H:DIM A(1,31) ,B(6%) :H=100000070# 

130 CLS:FOR 1=0 TO 1:M=N: INPUT'"'# "3 P#:L=LEN(P#):N= 
INT(L/8):A(CI,N)=VAL(LEFTS(P#$,(L MOD 8))) 

148 FOR J=1 TO N:A(I,J-1)=VAL(MIDS(P$,L-8#J+1,8)): 
NEXT J:NEXT I 

150 FOR 1=Q TO M:E=A(@,1):FOR J=1 TO I+N:F=B(J)+E* 
A(1,J-1) 

168 G=INT(F/H):R(J+1)=R(J+1)+6:B(J)=F-G#H:NEXT JiN 
EXT: I 

170 REM #* : affiche des * en téte des nombres à g 
auche 

180 PRINT: PRINT: L=M+N+ (G=0@) : PRINT USING" #3##ffitité" s 
B(L+1):;:FO0R 1=Q TO L 

190 REM SPFC(N) : saute N espaces dans un PRINT 

200 PRINT SPC(-((I MOD 9)<8)); RIGHTS (STR#(B(L-I1)+H 
),8);:NEXT I:END En] 
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 RANGEMENT 
DE DIAPOSITIVES 


Si vous êtes un fanatique de la diapositive (dia pour les intimes), 
ce programme de recherche est fait pour vous. 





souvent de l'exploit sportif... 
Désormais, il vous suffira de donner une indication sur la dia cherchée et votre 
ordinateur vous indiquera le n° de sa boîte et sa place à l’intérieur de cette boîte, 


Emmanuel Letellier 
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10 REM RANGEMENT DIAPOSITIVE 

20 REM DE E. LETELLIER 

30 CLS 

48 RESTORE 

5Q PRINT"'CHOISISSEZ VOTRE MODE DE RECHERCHE: ‘2: PRINT 
68 PRINT"'1-FAR SUJET" 

7@ FRINT"2-PAR LIEU" 

80 PRINT"3-PAR LIEU+SUJET" { 
9Q FRINT'"'4-PAR N.DIAPOSITIVE" Ce gramme 

100 PRINT"'S-PAR SUJET DANS BOITE" Ce pro, l'ame OUVCrT, 

110 PRINT"6-LISTE DIAPOSITIVE" { ôt 6 ou a la té 
ie CU al" pou re allong d 

13@ INPUT"VOTRE CHOIX : "CHOIX car DOUVANL CUre auON pre 
140 ON CHOIX GOTO 150,220,290,370,450,53@ [) LI 

190 REM == SUJET me à d'autres matières, 

16@ CLS: INPUT"'SUJET : "3S$ FU ue jh INRP . x 

17@ READ SUJET#,LIEUS,BOITE,DIA L 

190 IF SUJETS="ÉIN" THEN 600 rendra d’inestimables services 
190 IF SUJET#=S$ THEN GOSUB 670 ELSE 170 F 

20@ PRINT: INPUT"VOULEZ-VOUS POURSUIVRE LA RECHERCH d 

É DU MEME SUJET DANS LA MEME BOITE (O/N) "jV# aux enseignants de toutes sortes. 
210 IF V#<>"O" THEN 620 ELSE 170 


288 CLS: INPUT-LIEU à “jL# Pour rajouter des questions/réponses, 
D Er ÉRRE THEN LE il suffit de modifier la variable N 


260 IF LIEU$=L$ THEN GOSUB 670 ELSE 240 
27@ PRINT: INPUT"VOULEZ-VOUS POURSUIVRE LA RECHERCH e 
E DU MEME LIEU DANS LA MEME BOITE (O/N) ":V$ correspondante ainsi que 
280 IF V#c>"D" THEN 6270 ELSE 240 RE  ————— 
290 REM === LIEU+SUJET === 
300 CLS: INPUT"LIEU + "3L# deux DATAs, 
319 INPUT"SUJET : "336$ ja 
320 READ SUJET#,LIEUS,BOITE,DIA I 
330 IF SUJET#="FIN" THEN 600 un pour la question 
340 IF LIEUS=L$ AND SUJET#=S$ THEN GOSUB 670 ELSE 
320 et l’autre 
350 PRINT: INPUT"VOULEZ-VOUS POURSUIVRE LA RECHERCH LUI OUT. 
E DU MEME LIEU ET DU MEME SUJET DANS LA MEME BOITE z 
(O/N) “3; Vs po 1 )pouse. 
360 IF V$<>"O" THEN 620 ELSE 240 Dour Ia re Fe — 
370 REM === BOITE+DIA === 
380 CLS: INPUT"NUMERO BOITE : ";NB 
390 INPUT'NUMERO DIAPOSITIVE : ":ND 
400 READ SUJET#,LIEU*,BOITE,DIA 
410 IF SUJET$="FIN" THEN 600 
420 IF BOITE=NB AND DIA=ND THEN GOSUB 670 ELSE 400 
430 PRINT 
440 GOTO 620 
450 REM === BOITE+SUJET === 
460 CLS:INPUT'NUMERO BOITE : ";NB 
470 INPUT"SUJET : "595$ 
480 READ SUJET#,LIEU*,BOITE,DIA 
490 IF SUJET#="FIN" THEN 600 
500 IF BOITE=NE AND SUJET#-S$ THEN GOSUB 676 ELSE 
480 
510 PRINT: INPUT"VOULEZ-VOUS POURSUIVRE LA RECHERCH 
E DU MEME SUJET DANS LA MEME BOITE (Q/N) ";V# 
520 IF V#<>"D" THEN 420 ELSE 480 
530 REM === LISE DIAPO === 
549 CLS: INPUT'NUMERO BOITE : ";NB 
550 KCAD SUJET$,LIEU*$,BOITE,DIA 
560 IF SUJET#="FIN" THEN 600 
570 IF BOITE=NB THEN GOSUB 670 ELSE 550 
580 PRINT:PRINT"TAPEZ UNE TOUCHE" 
590 IF INKEY$="" THEN 590 ELSE 550 
6QQ REM === INCONNUE+ADIEU === 
618 PRINT'LECTURE TERMINEE. " 
628 PRINT 
630 INPUT"VOULEZ-VOUS CONTINUER (O/N) "3C+# 
640 IF C+="O" THEN 30 
65Q CLS:PRINT"AU REVOIR !" 
66@ END 
670 REM === INSCRIPTION === 
680 CLS 
690 PRINT: PRINT: PRINT'SUJET : “3 SUJETS 
700 PRINT 
710 PRINT'LIEU : "3LIEUS 
720 PRINT 
730 PRINT"'BOITE : "BOITE 
74Q PRINT 
750 PRINT"DIAPOSITIVE : "3DIA 
760 PRINT 
770 RETURN 
780 REM +++ DATA +++ 
790 REM 
800 REM Entrée des données sous la forme 
81Q REM DATA sujet ,lieu,n* baite,n° dia 
e20 REM 
830 DATA MAISON,REIMS,1,1 
84@ DATA MONUMENT ,REIMS, 1,2 
850 DATA FIN,FIN,100,100 


EAO 






















Marc Moilaret mi 





10 REM PROGRAMME OUVERT : AJOUTER 1 À LA VARIABLE 
N CORRESFONDANTE 

20 REM ET RAJOUTER 2 DATA À LA SUITE (DATA QUESTID 
N DATA REFONSE) 

30 REM ENSEIGNEMENT ASSITE PAR ORDINATEUR 

40 REM NOM DU PROGRAMME ----—-- > EAO 
PO=D:F1=0:P?2=0 3: P3=0:P4=0: P5=0: Pé=Q:P7=0:P8=0:P9 








REM INITIALISE LE TIRAGE NE AU HASARD 
7Q CLS: INPUT "TAFER 1 NOMBRE À 2 CHIFFRES ";N$ 

8@ IF LEN (N$) <> 2 THEN 70 

90 FOR 1= 1 TO VAL (N#):N=RND(1):NEXT I 

a NOMBRE N1 QUESTIONS SUR LES FEMIN 


—— QUESTIONS SUR LE FEMININ DES MO 












"CERF" 
140 DATA "BICHE" 
15@ DATA "BOULANGER" 
162 DATA "BOULANGERE" 
17@ DATA "CHAT" 
18Q DATA "CHATTE" 
190 DATA "CHIEN" 
20@ DATA "CHIENNE" 
RSS STEP EE LE 





230 N2=4 
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DATA "CANAL" 
DATA “CANAUX 
DATA "CAILLOU" 
DATA "CAILLOUX“ 
"TOUT" 
"TOUS" 
"TROU" 
"TROUS" 
NOMBRE N3 QUESTIONS CONJUGAI 


QUESTIONS SUR LA CONJUGAISO 


"CHANTER 1 PERS SING PASSE COMP." 
"J'AI CHANTE" 

"ETRE 1 PERS PLU, IMPARFAIT" 
"NOUS ETIONS"“ 


"LES DESCENDANTS DE CLOVIS SONT LES" 
"MEROVINGIENS" 
"LES DESCENDANTS DE CHARLEMAGNE SONT LES" 
"CAROLINGIENS" 

NOMBRE NS QUESTIONS GEOGRA 


QUESTIONS DE GEOGRAPHIE---- 


489 N5=2 
498 DATA "FOUR FASSER D'UNE VALLEE À L'AUTRE NOUS 
PRENONS UN" 

DATA "COL" 

DATA "LE GRAND FLEUVE FASSANT PAR NANTES EST L 


"LOIRE" 
NOMBRE N6 QUESTIONS INFORMATIQU 


QUESTIONS SUR L'INFORMATIQUE- 


“UNE DONNEE EXT. EST MISE EN MEMOIRE AVEC 


FONCTION" 
DATA "LECTURE" 
DATA "UNE DONNEE INT. EST SORTIE DE LA MEMOIRE 
AVEC LA FONCTION" 
598 DATA "ECRITURE" 
NOMBRE N7 QUESTIONS MATHEMAT 


QUESTIONS SUR LES MATHEMATIQU 


628 N7=2 
630 DATA "2 DROITES NE SE RENCONTRANT JAMAIS SONT 
DES" 
648 DATA "FARALLELES" 
65Q DATA "LES NOMBRES 1 2 3...... SONT DES" 
DATA "ENTIERS" 
NOMBRE NB QUESTIONS SCIENCES--- 


QUESTIONS SUR LES SCIENCES--- 


DATA "LA FORCE QUI NOUS MAINTIENT SUR LA TERRE 


DATA "GRAVITE" 
DATA "NOTRE TERRE EST LA FLANETE NUMERO ...... 


DATA "TROIS" 
DATA "NOTRE GALAXIE S'APPELLE LA" 
DATA "VOIE LACTEE" 
NOMBRE N9 QUESTIONS DIVERSES-- 


N9=3 ‘ 

DATA "UN KOALA MANGE LES POUSSES D'UN" 

DATA "EUCALYPTUS" 

DATA "LA PASTEURISATION CHAUFFE LE LAIT RAPIDE 
MENT VERS ..... DEGRES" 
820 DATA "80" 
830 DATA "LA STERILISATION CHAUFFE LE LAIT VERS .. 
. DEGRES" 
84@ DATA "11@" 
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850 GOTO 1620 
REM HR ME ONU HE EE EDEN DEN 


CLS 
PRINT"'F (EMMININ" 
PRINT'"P (LURIEL" 
PRINT "C (ONJUGAISON" 
PRINT"H(ISTOIRE" 
PRINT"G(EOGRAFHIE" 
PRINT "I (INFORMATIQUE " 
PRINT'"M(ATHEMATIQUES" 
PRINT"S(CIENCES" 
FRINT"D(IVERS" 
PRINT: INPUT 
RETURN 
REM #K#H##KANERMEERENX PROCEDURES (SOUS-PROGRAM 
HU H HD HD HE DE DD EME DE HE DH 
RESTORE:CLS:READ Gi$:PRINT 01% 
AL=INT (RND(1)#N1+1): AL=2#AL-1 
FOR 1=1i TO AL:READ G1$#:NEXT I:READ Ci$ 
PRINT O1# 
1049 INPUT R1$:1F R1#$<>C1$ THEN 1030 
105Q RETURN 
1860 RESTORE:CLS 
1070 FOR 1=1 TO 2*xN1+2:READ QZ#:NEXT I:PRINT 002$ 
1088 AL=INT (RND (1) #N2+1) : AL=2#AL-1 
1090 FOR 1=1 TO AL:READ OZ2#:NEXT I:READ C2$ 
1108 PRINT 02$ 
1110 INPUT R2#$:1F R2$ <> C2$ THEN 1100 
1129 RETURN 
1130 RESTORE:CLS 
1140 FOR 1=1 TO 2*(N1+N2)+3:READ Q3S#$:NEXT I:PRINT 
Q3$ 
1150 AL= INT (RND(1) xN3+1) : AL=2#AL-1 
1160 FOR I=1 TO AL:READ QS#:NEXT I:READ C3$ 
117Q PRINT O3$ 
1180 INPUT R3S#$:1F R3#$<>C3$ THEN 1170 
119Q RETURN 
1208 RESTORE:CLS 
1210 FOR 1=1 TO 2#(N1+N2+N3)+4:READ G4$#:NEXT I:PRI 
NT 004$ 
1220Q AL= INT (RND(1)#xN4+1) : AL=2#AL-—1 
1230 FOR I=1 TO AL:READ Q4$:NEXT I:READ C4+$ 
1248 PRINT G4$ 
259 INPUT R4#$:1F R4#<>C4$ THEN 1240 
1260 RETURN 
127Q RESTORE:CLS 
1280 FOR I=1 TO 2#(N1+N2+N3+N4) +5: READ QS#:NEXT 1: 
PRINT 05$ 
1290 AL= INT(RND(1)#xN5+1) : AL=2#AL-1 
150Q FOR 1=1 TO AL:READ OS$:NEXT I:READ C5$ 
1310 FRINT QS$ 
1320 INPUT RS$:1F R5#$<>C5$ THEN 1310@ 
1330 RETURN 
1340 RESTORE:CLS 
1350 FOR 1=1 TO 2% (N1+N2+N3+N4+NS) +6: READ GQét:NEXT 
I:PRINT 066$ 
1568 AL= INT (RND(1)#N6+1) : AL=2#AL-1 
1370 FOR 1=1 TO AL:READ GQé#:NEXT I:READ Cé$ 
1380 FRINT Gé# 
1390 INPUT Ré$:1F R6#$<>Cé6+$ THEN 1380 
1400 RETURN 
1410 RESTORE:CLS 
1420 FOR 1=1 TO 2% (N1+N2+N3+N4+NS+N6) +7: READ Q7$:N 
EXT I:PRINT 07# 
1430 AL= INT(RND(1)#N7+1) : AL=2*AL-1 
1440 FOR 1=1 TO AL:READ Q7#:NEXT I:READ C7# 
1450 FRINT Q7$ 
1460 INPUT R7$:1F R7#<2>C7$ THEN 1450 
1470 RETURN 
148Q RESTORE:CLS 
1490 FOR 1=1 TO 2*(N14+N2+N3+N4+NS+N6+N7) +8: READ GB 
#:NEXT I:PRINT 068$ 
1509 AL= INT (RND (1) #xNB+1) : AL=2#AL-1 
1519 FOR 1=1 TO AL:READ QB#:NEXT I:READ C8# 
1520 PRINT O8$ 
1530 INPUT RS8$:1F R8#<2C8$ THEN 1529 
1540 RETURN 
1550 RESTORE:CLS 
1560 FOR I=1 TO 2% (N1+N2+N3+N4+N5S+N6+N7+NB) +9: READ 
O9$:NEXT I:PRINT 09$ 
1570 AL= INT (RND(1) kN9+1) : AL=2KAL-1 
1580 FOR 1I=1 TO AL:READ Q9#:NEXT I:READ C9# 
1590 PRINT Q9$ 


VOTRE CHOIX ";CH# 





1600 INPUT R9$:1IF R9#<2C9$ THEN 1590 

161Q RETURN 

1620 REM ##XH##RXREREEXEX PROGRAMME PRINCIPAL 
LELLSS SL 

1630 GOSUB 860 

1640 CH$="F" THEN GOSUE 1000:P1=P1+1:GO0OTO 
1650 CH$="P" THEN GOSUB 1960:P2=P2+1:GOTO 
1660 CH#="C" THEN GOSUR 113@:P3=P3+1:GOTO 


1670 CH$="H" THEN GOSUB 1200:F4=P4+1:GOTO 
1680 CH$="6G" THEN GOSUB 1270: FP5=P5+1:G0OTO0 
1690 CH$="1" THEN GOSUB 1349: Pé=P6+1:GO0OTO 
1700 CH$="M" THEN GOSUB: 141@:P7=P7+1: GOTO 
1710 CH$="S" THEN GOSUR 1480:P8=P8+1:G0OTO 


1720 
1730 


CH$="D" THEN GOSUB 1550: P9=P9+1:GOTO 





IF FO<1@ THEN 1870 

CLS 

PRINT" BRAVO SUR LES 1@ QUESTIONS" 
PRINT'FEMININ--2>";P15;" BONNES REPONSES" 
FRINT'"'PLURIEL--2>";P2;" BONNES REPONSES" 
PRINT'"CONJUG.--2>";P3;" BONNES REFONSES 
FRINT"'HISTOIRE->";P4;" BONNES REPONSES" 
PRINT"GEOGRAP.-5";P5;" BONNES REPONSES" 
PRINT'"INFORMA.-2>";P6;" BONNES REPONSES" 
PRINT "MATH BONNES REPONSES" 
PRINT"'SCIENCES-2>";P8;" BONNES REPONSES" 
PRINT"'DIVERS---2>";P9;" BONNES REFONSES"“ 
END 

GOTO 1630 


ALEC ET ROY 


Votre tronçconnense est prête ? Alors, nous pouvons y aller ! 


Ca 





ne fois vue la présentation du jeu, vous entrez 
le n° de l'arbre que vous désirez scier. Trois cas 
peuvent alors se produire : 
e soit Roy est sur l'arbre scié, auquel cas la partie 
est terminée ; 
e soit Roy est sur un arbre adjacent à celui que vous 
venez de scier ; dans ce cas, Roy vous dit sur quel 
arbre il était et il se déplace (cette fois sans rien dire !) 
sur un arbre adjacent à celui qu'il occupait. 
Exemple : 
AA PP AA 
OO AA EE AA 
00 XX AA AA 
00 00 00 
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où XX est l'arbre scié, OO un arbre adjacent à celui 
scié, EE l'arbre où se trouvait Roy, AA l'arbre où Roy 
peut aller et PP celui qu'il a choisi. Bien entendu, Roy 
ne peut aller sur un arbre déjà scié par Alec, c'est-à- 
dire vous. Par conséquent, il peut se produire que 
Roy ne puisse plus bouger, ce qu'il ne manque pas 
de vous signaler ; 
e soit Roy n'est ni sur l'arbre scié ni aux alentours. 
Dans les deux derniers cas, on vous redemande un 
n° d'arbre à scier, dans la limite des possibilités de 
votre tronçonneuse. Si vous ne pouvez plus scier 
d'arbres et que vous n'avez toujours pas découvert 
Roy, vous avez perdu... 
Alain Goubert Hi 
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 ALEC ET ROY 


REM Affichage en 40 colonnes 
WIDTH 40 


100 CLS:RANDOMIZE 

11Q PRINT "JEU: LE FOU ET LA TRONCONNEUSE" 

120 FRINT:PRINT 

130 PRINT "UN FOU NOMME ROY S'EST ECHAPFPE DE SON À 

SILE ET VOUS, ALEC, DEVEZ LE RETROUVER. " 

140 PRINT "LA TACHE NE SERA FAS AISEE, PUISQUE ROY 
,: PAS SI FOU, S'EST REFUSIE DANS UNE FORET DE 99 À 

RBRES !!1" 

150 PRINT "AVEC VOTRE RESERVE D'HUILE ET D'ESSENCE 
CONTENUE DANS LE RESERVOIR DE VOTRE TRONCONNEUSE, 
VOUS NE FOUVEZ EN SCIER QUE 25 !!1" 

168 PRINT "MAIS FOUR VOUS AIDER, ON VOUS INDIQUE À 

U DEPART SI ROY SE TROUVE À L'EST OÙ À L'OUEST DE 

LA LIGNE TRACEE EN //." 

170 PRINT:PRINT "BONNE CHASSE !111" 

180 REM LOCATE X,Y : positionne le curseur ligne X 
, colonne Y 

19Q LOCATE 24,1:PRINT "APFPUYEZ SUR UNE TOUCHE FOUR 
COMMENCER " ; 

200 R$S=INKEY#:1F K$="" THEN 200 

210 

220 

250 

240 

250 FOR U= 9 TO @ STEP -1 

268 J=U 

27@ FRINT">"3;:1F J<1Q THEN PRINT"Q"; 

280 PRINT:;MID#H(STR#(J),2);"<t"s 

290 IF J>=U+9Q THEN 320 

300 J=3+10 

310 GOTO 270 

320 NEXT U ; 

3350 FOR U=i TO 3 

340 PRINT TAB(2@)"//" 

350 NEXT 

360 LOCATE 12,8: FRINT'OUEST "3; :LOCATE 12,30:PRINT'E 

sT' 

370 LOCATE 14,1 

380 

370 

400 

410 A=25:REM NOMBRE MAXIMUM D'ARBRES QU'ALEC FEUT 

SCIER 

420 REM FO : POSITION DE ROY 

450 A$=" ":REM POUR EFFACER LES ARBRES SCIES DE L 
‘ECRAN 

440 REM N$ ;: ARBRE QUE ALEC VEUT SCIER 

450 DIM M(11@):REM PERMET DE SAVOIR SI L'ARBRE NUM 

ERO I EST SCIE OÙ NON (IL EST SCIE FOUR M(I)=-1) 

460 REM 

470 REM FOSITION INITIALE D'ALEC 

480 

490 

500 

510 REM AFFICHAGE DE SA FOSITION (A L'EST OÙ À L'O 

UEST) 


530 IF PO<=49 THEN PRINT'ALEC EST A L'OUEST" 
540 IF FO>49 THEN PRINT'ALEC EST À L'EST" 

550 LOCATE 24,1:PRINT'PRESSER UNE TOUCHE FOUR CONT 
INUER. .."; 

560 IF INKEY+="" THEN 560 

570 REM ----- base men 

580 REM DEBUT DU JEU ; ROUTINE : QUESTION & L'UTIL 
ISATEUR 


608 REM STRING#$(X,A$) : génère X fois la chaîne A$ 
610 LOCATE 14,1:PRINT STRING#(255," "),; STRINGE (158 
," "3 

620 LOCATE 15,1:FRINT"'ALEC SCIE L'ARBRE NUMERO 

3: INPUT" SNS 

638 IF LEN(N$)>2 THEN 620 

640 IF LEN(N$)=1 THEN N$="Q"+N# 

650 H=VAL(N#):1F M(H)=-1 THEN 620 

660 MCH)=-1 
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670 
680 
690 
700 
710 
720 
730 
740 IF PO=H-1 OR FO=H+1 OR PO=H+9 OR PO=H-9 OR FO0= 
H+10 OR FO=H-10 OK PO=H-11 OR PO=H+11 THEN GOSUB SG 
50 
750 
760 REM ROY N'EST NI SUR L'ARBRE SCIE NI AUX ALEN 


790 GOSUB 1420:REM EFFACE L'ARBRE SCIE DE L'ECRAN 
800 IF A=Q THEN 136G:REM FIN DU JEU 

810 GOSUR 1260:REM AFFICHE LE NOMBRE D'ARBRES QUE 
ALEC FEUT ENCORE SCIER à 

820 GOTO 610 


860 LOCATE 20,1 

870 PRINT "HAPPY END !11" 

880 FRINT:PRINT'ENFIN ALEC EUT ROY !!!..,.... (ECUR 
EUIL!)" 

890 FRINT:PRINT'PRESSER UNE TOUCHE FOUR CONTINUER. 


L 

IF INKEY$="" THEN 900 
GOTO 1520 

RE 


LOCATE 16,1 
PRINT'ALEC, J'ETAIS SUR L'ARRRE NUMERO : "“;P0 
REM 
980 REM CALCUL DE LA NOUVELLE FOSITION DE ROY 
9970 
1009 PO$=STR# (FO) 
1010 GOSUE 1410 
102 IF ER=1 THEN 1220 
1030 X=INT (RND(1)#4+1) 
1040 IF X=2 THEN X=9 
1050 IF X=3 THEN X=10 
1060 IF X=4 THEN X=11 
1872 Y=RND(1) 
1080 IF Y<=,5 THEN SG=-1 
1890 IF Y>.S5 THEN SG=1 
1100 AJ=X*S6 
1110 P=PO+AJ:IF F<Q OR F>99 THEN 1030 
1120 IF M(P)=-1 THEN 1030 
1130 IF Ai=1 AND (AJ=1 OR AJ=-10 OR AJ=11 OR AJ=-1 
1 OR AJ=-9) THEN 103@ 
1140 IF A2=1 AND (AJ=1i OR AJ=1Q OR AJ=11 OR AJ=9 0 
R AJ=-9) THEN 1030 
1150 IF AG=1 AND (AJ=-1 OR AJ=10 OR AJ=11 OR AJ=-1 
1 OR AJ=9) THEN 1250 
1160 IF A4=1 AND (AJ=-1 OR AJ=-19 OR AJ=-11 OR AJ= 
—9 OR AJ=9) THEN 103@ 
IF Ci=i AND (AJ=i OR AJ=1i1 OR AJ=-9) THEN 103 


1F C2=1 AND (AJ=-10 OR AJ=-11 OR AJ=-9) THEN 
IF C3=1 AND (AJ=-1 OK AJ=-11 OR AJ=9) THEN 10 
IF C4=1 AND (AJ=10 OK AJ=11 OR AJ=9) THEN 103 


FO=FO0+AJ 


REM AFFICHE LE NOMBRE D'ARBRES QUE ALEC FEUT 
ENCORE SCIER 


1268 LOCATE 18,1 

1270 PRINT"VOUS, ALEC, VOUS POUVEZ ENCORE SCIER ": 
A3: "ARBRE"; 

1280 IF A1 THEN PRINT "s" 

1290 IF A=1 THEN PRINT:PRINT'MAIS CE SERA LE DERNI 
ER {ii 

1300 LOCATE 24,1:PRINT"'PRESSER UNE TOUCHE FOUR CON 
TINUER...": 

1310 IF INKEY#="" THEN 1310 





1320 
1330 
1340 
1350 
13560 
1370 


1580 
1390 
1400 
1410 
1420 
1430 
1448 
1450 
1460 
147Q 
1480 
1490 
1500 
1510 
1520 
1530 
N'"'s 

1540 
1550 
1560 
1570 


RETURN 


REM FIN DU JEU 


REM 


LOCATE 20,1 


PRINT"EH BIEN MALHEUREUSEMENT, VOICI ENCORE U 
N FOU QUI NE SERA FAS ENFERME 


ton 

GOTO 1520 

REM 

REM EFFACE LES ARBRES SCIES DE L'ECRAN 


FOR U=Q TO 9 

IF VAL(LEFT#(N#$,1))=l) THEN C=2+Ux4 
IF VAL(RIGHT#S(N#,1))=U THEN B=10-U 
NEXT U 

LOCATE B,C 


CLS: LOCATE 20,1 
FRINT'VOULEZ-VOUS FAIRE UNE AUTRE PARTIE ? 0/ 


R$S=INKEYS#: IF R$="" THEN 1540 

IF R$<3>"O" AND R$<2>"N" THEN 153 

IF R#$="0" THEN RUN 

IF R$="N" THEN WIDTH SQ:END:REM Retour à l'af 


fichage 80 colonnes 
1580 
1590 
1600 












REM 
REM ANALYSE 
REM 





(7, L e but du jeu consis- 
te à remettre les 
vingt-quatre lettres du 
plateau de jeu (5*5 
cases) dans l'ordre 
alphabétique par glisse- 
ment. À, en haut à gau- 
che et X, sur la 
ligne du bas à 
droite. Le doigt 
; du joueur est re- 
présenté par un tiret clignotant 
que l'on peut déplacer vers la 
droite ou la gauche (commande 
W pour < et N pour >), le dépla- 
cement étant commandé par la 
touche <ESPACE>. 

Une fois sur la lettre, la direction 
de déplacement est choisie par 
Haut), B(as), Droit) et G(auche). 
En espérant qu'il vous reste 
encore des cheveux après une 
partie... 


Jean-Luc Delporte 
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1610 IF RIGHT#(POF,1)="9" THEN IF M(PO-1)=-1 AND M 
(PO+1@)=-1 AND M(PO-18)=-1 AND M(PO-11)=-1 AND M(F 

O+9)=-1 THEN 1720 

1620 IF LEFT#(FPO#,1)="@" THEN.IF M(PO-1)=-1 AND M{ 

PO+1)=-1 AND M(PO+1@)=-1 AND M(FD+11)=-1 AND M(PO+ 

9)=-1 THEN 1720 

1630 IF RIGHT#(PO#,1)="@" THEN IF M(PO+1)=-1 AND M 
(PO+10)=-1 AND M(PO-1@)=-1 AND M(PO+11)=-1 AND M(P 

0-9)=-1 THEN 1720 

1640 IF LEFT#(PO$,1)="9" THEN IF M(PO+1)=-1 AND Mt 

PO-1)=-1 AND M(PO-10)=-1 AND M(PO-11)=-1 AND M(FO- 

G)=-1 THEN 1720 

1650 IF FO$="200" THEN IF M(PO+1)=-1 
1 AND M(FO+11)=-1 THEN 1720 

1660 IF FO$="09" THEN IF M(PO-1)=-1 
1 AND M(FO+9)=-1 THEN 1720 

1670 IF PO$="99" THEN 1F M(FO-1)=-1 
1 AND M(PO-11)=-1 THEN 1720 

1680 IF PO+t="90" THEN IF M(FO+1)=-1 
1 AND M(FO-9)=-1 THEN 1720 

1690 IF FO<19 THEN 1710 

1700 IF M(PO+1)=-1 AND M(PO-1)=-1 AND M(PO+10)=-1 

AND M(PO-10)=-1 AND M(FO+11)=-1 AND M(FO-9)=-1 AND 
M(FO+9)=-1 THEN 1720 

1710 RETURN 

1720 LOCATE 20,1: PRINT'ALEC, JE NE PEUX: PLUS EOUG 
ER !!!"sLOCATE 24,1:PRINT'PRESSER UNE TOUCHE POUR 

CONTINUER. . . "3 
1730 IF INKEY#<>"" THEN 1730 

1740 LOCATE 14,1:PRINT STRING#(255," 
8," ")s 

175Q RETURN 


AND M(PO+1D)=- 
AND M(FO+10)=- 
AND M(PO-10)=- 


AND M(PO-1@)=- 


")s: STRINGS (15 


6° CASSE-TÊTE 


REM 66e DEEE MEME EME DE DE DEEE 
REM * CASSE TETE E: 
REM * J.L DELPORTE *# 
REM 4H MENU UEMOMEONENE DE DE MEME MEME DEEE 

GOSUR 1910 
REM * MELANGE +% 
CLS: PRINT "Appuyez sur une touche pour arréter 
mélange." 

X=INT(RND(1)#5):Y=INT (RND(1)#5) 

X1=INT (RND (1) #5) : Y1=INT (RND (1) #5) 

IF X=X1 AND Y=Y1 THEN 90 
AS=E#(X,Y):B#(X,Y)=RE(X1,Y1):BS(X1,Y1)=A# 

REM # TEST DES TOUCHE * 

ZZ$=INKEY#:1IF ZZ+="" THEN 80 

REM 

REM * DEPART # 

CLS 

GOSUE 1080 

CO=Q: XC=Q: YC=Q 

GOSUB 97@:GOSUB 930 

D+t=">":GOTO 3240 

REM *% ENTREE * 

REM LOCATE X,Y :positionne le curseur ligne X, 
colonne Y 
230 D$=INKEY#:1F D$="" THEN 230 
240 1F D$f=" " THEN 
250 D#$="H" THEN 
260 D#$="EB" THEN 
270 D$="D'" THEN 
280 D$="G" THEN 
290 D#='"N" THEN 
500 D$="W" THEN 
310 


2? 
Er 


D+=" >": GOTO 
D+="<": GOTO 
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CASSE-TÊTE 































700 










990 















1890 PRINT :PRINT 
hoisi par W pour < et N pour >" 

1109 PRINT:PRINT “ (SPACE) Déplacement" 
111@ RETURN 


SENS#=D#:LOCATE 8,14:PRINT D$ 
GOSUR 930:G6G0TQ 23Q 

REM * DEP CURSEUR * 

GOSUE 950 

IF SENS$="<" THEN 400 
YC=YC+1:1F YC<S THEN 430 
YC=Q: XC=XC+1:1F XC<S THEN 430 
XC=2:GO0OTO 43Q 

YC=YC-1:1F YC>-1 THEN 430 
YC=4: XC=XC-1:1F XC>-1 THEN 430 
XC=4 

GOSUE 930:GOTO 21@ 

REM * DEP HAUT * 

IF XC=Q THEN 210 

FOR K=XC-1 TO Q STEP -1 

IF B#(K,YC)=" " THEN 490 

NEXT K:GOTO 210 


FOR J=K TO XC-1:B#(J,YC)=B$(J+1,YC):NEXT J 


B$(XC,YC)=" " 

GOSUB 970:GOSUR 930 

GOTO 850 

REM *x DEF EAS * 

IF XC=4 THEN 210 

FOR K=XC+1 TO 4 

IF B$(K,YC)=" " THEN 580 
NEXT K:GOTO 210@ 


FOR J=K-1 TO XC STEP -1 
B$ (J+1,YC)=B$(J, YO) 
NEXT J 

B$(XC,YC)=" # 

GOSUB 970:GO0SUB 930 
GOTO 850 

REM * DEF DROITE * 


IF YC=4 THEN 210 


FOR K=YC+1 TO 4 

IF B#(XC,K)=" " THEN 690 
NEXT K:GOTO 21@ 

FOR J=K-1 TO YC STEP -1 
BF(XC,J+1)=B#$(XC,J) 

NEXT J 

B$(XC,YO)=" 

GOSUR 970:GOSUB 930 

G0OTO 85a 

REM * DEF GAUCHE * 


IF YC=@ THEN 21Q 

FOR K=YC-1 TO @ STEP -1 
IF B#(XC,K)=" " THEN 800 
NEXT K:GOTO 210 

FOR J=K TO YC-1 
E$(XC,J)=E#$(XC,J+1) 

NEXT J 

B#{(XC,YC)=" " 

GOSUB 970:GOSUB 939 

REM # VERIFICATION * 

FOR 1=Q TO 4:FOR J=Q TO 4 


IF B#(1,J)<>3A$(1,J) THEN CO=CO+1:G0T0 210 


NEXT J:NEXT I 























CLS: LOCATE 12,1:PRINT"Vous êtes parvenu au rés 


uitat en";:C0;" coups." 


INPUT '"Désirez-vous rejouer O/N ";D# 
IF D$="0" THEN 60 

END 

REM * SSPG CURSEUR * 


REM LOCATE X,Y,1 : idem LOCATE X,Y mais affich 


clignotant du curseur 

LOCATE XC#2+10,YCx2+10,1 

RETURN 

REM * SSPG DEPLACEMENT * 

FOR 1=@ TO 4:FOR J= @ TO 4 

LOCATE 1#2+10,J*x2+1@,1:PRINT B#(I,J) 


1000 NEXT J:NEXT IeRETURN 
1010 REM * INITIALISATION * 
182 DIM A$(5,5) ,B#$(5,5) 
1050 DATA A,B,C,D,E,F,6,H,1,J,K,L,M,N,0,P,G,R,S,T, 
U,V, 
1040 FOR 1= @ TO 4:FO0R J=0 TO 4 
1050 READ B#(1,J):4#(1,J)=B#(1,J9) 
1868 NEXT J:NEXT 1 

1070 RETURN 

1082 PRINT "(H)aut (Bas (Droite (6) auche" 

"Sens du déplacement du curseur c 


Rex on “ 
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a grille de jeu représente le 

plan de la ville où vous allez 
sévir... 
Les destinations sont signifiées 
par des lettres. Deux lettres repré- 
sentant une case : H pour hôtel, 
P pour palace, G pour gare et A 
pour aéroport. 
Vos gains sont fonction du nom- 
bre de passagers déposés et de 
leur destination, à raison de 500 F 
par passager à la gare, 1 000 F à 
l'aéroport, 1 500 F à l'hôtel et 
2 000 F au palace. Les cases où 
vous prenez des passagers sont 
choisies aléatoirement, en tenant 
compte du fait que vous ne pou- 
vez prendre plus de quatre passa- 
gers pour une seule direction : 
votre taxi doit être vide pour pou- 
voir prendre des passagers. 
En outre, il y a des cases de péna- 
lité ou de bonus, et des cases car- 
refour où il ne se passe rien. 
Le tableau de bord résume votre 
situation monétaire, en cases de 
déplacements possibles, et les 
passagers éventuels à déposer. Le 
joueur 1 est symbolisé par un * 
et le joueur 2 par un +, les dépla- 
cements s'effectuant par les tou- 
ches G{auche), Dfroite), H{haut) et 
B(as). 
Bien évidemment, le joueur qui n'a 
plus d'argent perd. et celui qui 
atteint son contrat gagne | 

Alain Goubert 5 
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18 GOSUB 1530 
20 DIM A(2),D(2),B(2) ,GA(2) ,H0(2) ,PFA(2) ,AE (2) ,1(2) 
,J€2) 
30 DIM CO$(34) ,AG(34) ,PA$(34) ,DI#(34) 
40 FOR I=1 TO 34: READ CO#(1), AG(1), PA#(I):1F FA#(I 
}="P" AND AG(I)=0 THEN READ DI$(1) 
SA NEXT I 
68 X(1)=7:X(2)=6:Y(1)=5S:Y(2)=5:R(1)=1000:B(2)=1000 
:J=2 
7@ CLS 
80 FRINT TAB(11)3;"HEP TAXI" 
90 REM LOCATE X,Y : positionnne le curseur ligne X 
, colonne Y 
100 REM STRING#(X,A#) : génère X fois la chaîne A$ 
110 LOCATE 4,6:PRINT STRING#$ (20 ,"-"):LOCATE 5,6: PR 
INT STRING# (20,"—") 
120 LOCATE 8,6:PRINT STRING$(20,"-"):LOCATE 9,6:PR 
INT STRING#(20,"-"):LOCATE 12,6: PRINT STRING#(20," 
—"):LOCATE 13,6:FRINT STRING$(2D,"-") 
130 LOCATE 6,6: PRINT STRING#(2,"-") £LOCATE 6,14: PR 
INT STRING#(2,"-"):LOCATE 6,24: PRINT STRINGS#(2,"-— 
) 
140 LOCATE 7,6: PRINT STRING#(2,"-"):LOCATE 7,14:PR 
INT STRING#(2,"-"):LOCATE 7,24:PRINT STRING#$(2,"-— 
) 
150 LOCATE 10,6:PRINT STRING#(2,"-"):LOCATE 10,14: 
ERINT STRINGS(2,"-"):LOCATE 10,24:PRINT STRING#(2, 
_") 
160 LOCATE 11,6:PRINT STRING$(2,"-"):LOCATE 11,14: 
PRINT STRING#(2,"-"):LOCATE 11, 24: PRINT STRINGS (2, 
_") 
170 LOCATE 4,1@:PRINT"HH'";:LOCATE 4,20: PRINT "G6G6G" 
18Q LOCATE 8,8:PRINT"PP"3::LOCATE 8,12: PRINT"HH"3;:L 
OCATE 8,16:FRINT "GGAA" 
190 LOCATE 12,1@:PRINT "PP'3:LOCATE 12,20:PRINT "A 
AAA" 
200 LOCATE Y(1),X(1):PRINT'"#":LOCATE Y(2) ,X(2):PRI 
NT"+" 
210 REM SFC(N) : génère N espaces 
220 LOCATE 21,1: PRINT SPC(40); 
230 IF J=1 THEN J=2:LOCATE 20@,1:PRINT "LE JOUEUR 2 
JOUE...":G60T0 250 
24@ J=1:LOCATE 20,1:FRINT"'LE JOUEUR i JOUE..." 
25@ DE=INT (RND(1) #6) +1 
26Q@ IF J=1 THEN D2=0:D1=DE 
270 1F J=2 THEN D2=DE:D1=0Q 
280 GOSUE 1000 
290 FOR K=1 TO DE 
308 X=X(J):Y=Y(J) 
310 LOCATE 19,1:PRINT"'DIRECTION ?"3;:R#=INKEYS#: IF R 
$="" THEN 310 
320 R=ASC(R#) 
330 1F R<>72 AND R<>68 AND R<>71 AND R<>66 THEN 31 
a 
340 1F R=71 THEN X=X-2 
350 IF X<é THEN X=X+2:G0T0 300 
360 IF R=6B THEN X=X+2 
370 IF X2>25 THEN X=X-2:GOTO0 30@ 











HEP TAXI ! 


Comme vous vous en doutez, 
vous allez devoir apprendre 
Je dur métier de taxi: 


hé oui, 





R=éé THEN Y=Y+2 

V>13 THEN Y=Y-2:GO0T0 300 

R=72 THEN Y=Y-2 

Y<4 THEN Y=Y+2:G0T0 3500 

(Y=11 OR Y=7) AND (X=8 OR X=9 OR X=10 OR X= 
=12 OR X=13 OR X=16 OR X=17 OR X=18 OR X=19 


X=20 OR X=21 OR X=22 OR X=23) THEN 300 
LOCATE Y(J),X(J):PRINT" " 
X(J)=X3Y(J)=Y 

LOCATE Y(J),X(J):1F J=1 THEN FRINT"#" 
IF J=2 THEN PRINT'"+" 

REM 

NEXT K 


(X(J)=6 OR X(J)=7) AND Y(J)=5 THEN CA=1 
(X(J)=8 OR X(J)=9) AND Y(J)=5 THEN CA=2 
(X(J)=10 OR X(J)=11) AND Y(J)=5 THEN CA=SS 
(X(J)=12 OR X(J)=13) AND Y(J)=S THEN CA=4 
{X(J)=14 OR X(J)=15) AND Y(J)=5 THEN CA=S 
(X(J)=16 OR X(J)=17) AND Y(J)=5 THEN CA=6 
(X(J)=22 OR X(J)=235 OR X(J)=20 OR X(J)=21) 
CA=8 
OR X(J)=25) AND Y(J)=5 THEN CA=9 

=b OR X(J)=7) AND Y(J)=7 THEN CA=24 
(X(J)=14 OR X(J)=15) AND Y(J)=7 THEN CA=29 
(X(J)=24 OR X(J)=25) AND Y(J)=7 THEN CA=10@ 
(X(J)=6 OR X(J)=7) AND Y(J)=9 THEN CA=23 
(X(J)=8 OR X(J)=9) AND Y(J)=9 THEN CA=25 
{X(J)=10 OR X(J)=11) AND Y(J)=9 THEN CA=26 
(X(J)=12 OR X(J)=13) AND Y(J)=9 THEN CA=27 
(X(J)=14 OR X(J)=15) AND Y(J)=9 THEN CA=28 
(X(J)=20 OR X(J)=21) AND Y(J)=9 THEN CA=33 
{X(J) er OR X(J)=23) AND Y(J)=9 THEN CA=34 
{X(J)= OR X(J)=25) AND Y(J)=9 THEN CA=11 
tt ioros ok X(J)=7) AND Y(J)=11 THEN CA=22 
(X(J)=14 OR X(J)=15) AND Y(J)=11 THEN CA=30 
(X(J)=24 OR X(J)=25) AND Y(J)=11 THEN CA=i2 
(X(J1)=8 OR X(J)=9) AND Y(J)=13 THEN CA=20 
{(X(J)=10 OR X(J)=11) AND Y(J)=13 THEN CA=19 
(X(J)=12 OR X(J)=13) AND Y(J)=13 THEN CA=18 
{X(J)=14 OR X(J)=15) AND Y(J)=13 THEN CA=17 
{(X{(J)=16 OR X(J)=17) AND Y{J)=13 THEN CA=16 
(X(J)=6 OR X(J)=7) AND Y(J)=13 THEN CA=21 
{X(J)=18 OR X(J)=19) AND Y(J)=13 THEN CA=1S 
{X(J)=20 OR X(J)=21) AND Y(J)=13 THEN CA=14 
{(X(J)=22 OR X(J)=23) AND Y(J)=13 THEN CA=14 
(X(J)=24 OR X(J)=25) AND Y(J)=13 THEN CA=1i3z 
{X(J)2=18 OR X(J2=19) AND Y(J)=S THEN CA=7 
{X(J)=16 OR X(J)=17) AND Y(J)=9 THEN CA=31 
(X(J)=18 OR X(J)=19) AND Y(J)=9 THEN CA=32 


LOCATE 21,1:PRINT CO$ (CA); 


LE 


PA#(CA)="N" THEN B(J)=B(J)+AG(CA):G0OTO 950 
AG(CA)=500 THEN B(J)=B(J)+A6 (CA) *GA(J):GA(J 


AG(CA)=1000 THEN B{J)=B(J)+AG(CA)#AE(J):AE( 
AG(CA)=1500 THEN B(9J)=8(J)+AG (CA) #H0 (J) s HD( 


AG(CA)=2000 THEN B(J)=RB(J)+AG (CA) PA (J) : FAX 
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HEP TAXI 


J)=@ 
90Q P=INT (RND.(1) #4) +1 
910 IF AG(CA)=0 AND DIS(CA)="GA" AND P+GAt(J)+AE(J) 
+HO(J)+PA(J)<=4 THEN GA(J)=P+GA(J) 
920 IF AG(CA)=@ AND DI$(CA)="AE" AND P+GA(J)+AE (J) 
+HO(J)+FA(J)<=4 THEN AE (J)=P+AE (J) 
930 1F AG(CA)=Q AND DI$(CA)="HO" AND P+GA(J)+AE (J) 
+HO (I) +FA(J)<=4 THEN HO(J)=F+H0 (1) 
940 IF AG(CA)=@ AND DI$(CA)="FA" AND P+GA(J)+AE(J) 
+HO(J)+FA(J)<=4 THEN FA(J)=F+HO(J) 
950 LOCATE 23,1:PR 

";:LOCATE 24,1: FRINT'PRESSER <RETURN> 
FOUR CONTINUER. .."3;:R#=INKEV#:1F R$="" THEN 950 E 
LSE IF ASC(R#)<>13 THEN 950 
960 LOCATE 23,1: PRINT SPC (78); 
970 IF H(J)<O THEN CLS:PRINT "LE JOUEUR ";J;5" A PE 
RDU...":GOTO 1490 
98@ IF B(J)>=S0 THEN CLS:PRINT'LE JOUEUR ";J;" À G 
AGNE ! “:GOTO 1490 
690 GOTO 210 
1000 FOR K=1 TD 16:LOCATE K,27:PRINT" 
"3: NEXT K 
1216 LOCATE 
1870 LOCATE 
1050 LOCATE 


2,27:FPRINT" Jix ! +J2" 
4,27: FRINT"DEFLA ! DEFLA" 
5,272FPRINT " “3;Dis" ! 
1040 LOCATE 6,27:FRINT'SOMME ! SOMME" 
1050 LOCATE 7,27:PRINT B(1)3:LOCATE 7,33: PRINT"!": 
:LOCATE 7,34:FRINT B(2) 

1060 LOCATE 6,27:PRINT"GARE ! GARE" 

1970 LOCATE 9,29:PRINT GA(1)3;:LOCATE 9,33:PRINT":" 
3:LOCATE 9,36: PRINT GA(2) 

1090 LOCATE 10,27:PRINT"AERO. ! AERO." 

1090 LOCATE 11,29:PRINT AE (1) 3:LOCATE 11,33: PRINT" 
Is 2LOCATE 11,36:FRINT AE(2) 

1100 LOCATE 12,27: FRINT"HOTEL ! HOTEL" 

1110 LOCATE 13,29:FRINT HO(1)3:LOCATE 13,33: PRINT" 
"y: LOCATE 13,%6:PRINT HO (2) 

1120 LOCATE 14,27: PRINT"PALA. ! PALA." 

1130 LOCATE 15,29:PRINT FA(1) ;:LOCATE 15,33:PRINT" 
1"; :LOCATE 15,36:PRINT PA(2) 

1140 RETURN 

1150 DATA VOUS TOUCHEZ 200 FF DE BONUS,200,N 

1164 DATA VOYAGEURS. DIRECTION GARE,0,F,GA 

117@ DATA ARRET HOTEL. LES VOYAGEURS DESCENDENT, 15 
20,F 

1180 DATA 
-200,N 
1190 DATA 
N 

1200 DATA 
1210 DATA 
,-100,N 
1220 DATA 
,F 

1230 DATA 
1240 DATA 
1250 DATA 
AN 

1268 DATA 
108 ,N 
1270 DATA 
1280 DATA 
1000,F 
1298 DATA 
,-100,N 
1300 DATA 
1510 DATA 


“3 DZ 


GARAGE. VOUS FAITES LE PLEIN D'ESSENCE. , 
CASE CARREFQUR...ATTENDEZ FATIEMMENT. ,0, 


VOYAGEURS, DIRECTION FALACE,0,F,PA 
HOFITAL. DONNEZ 100 FF FOUR LES MALADES. 


ARRET GARE. LES VOYAGEURS DESCENDENT, 500 
GARAGE. REVISION DE LA VOITURE,-300,N 
VOYAGEURS, DIRECTION HOTEL,0,P,H0 

CASE CARREFOUR ...ATTENDEZ VOTRE TOUR... 


EGLISE. DONNEZ 100 FF FOUR LA FAROISSE,- 


VOYAGEURS. 
AEROFORT. 


DIRECTION HOTEL. ,0,P,H0 
TOUCHEZ 1000 FF FAR VOYAGEUR. , 


LA SOCIETE DES TAXIS VOUS DEMANDE 100 FF 


VOYAGEURS. DIRECTION GARE. ,0,F,GA 


CARREFOUR. PRENEZ VOTRE MAL EN FATIENCE. 


DATA LES POMPIERS VOUS DEMANDENT 200 FF. ,-200 


DATA FALACE. TOUCHEZ 2000 FF FAR VOYAGEUR. ,20 
DATA 
DATA 
DATA 


PEAGE. VOUS DEVEZ 200 FF.,-200,N 
VOYAGEURS. DIRECTION AEROPORT. ,0,F,AE 
POLICE. PAYEZ 300 FF POUR LA PRISON. ,-350 


DATA 
DATA 
DATA 


CARREFOUR. 
VOYAGEURS. 
ARRET FALACE. 


TOURNEZ VOUS LES FOUCES,0,N 
DIRECTION AEROPORT. ,0,F,AE 
LES VOYAGEURS DESCENDENT. , 


1400 DATA 
1410 DATA 
500,F 


VOYAGEURS. 
ARRET HOTEL. 


DIRECTION GARE. ,0,F,GA 
LES VOYAGEURS DESCENDENT. ,1 
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1420 DATA CARREFOUR. STATIONNEMENT INTERDIT. ,-500, 
N 

1430 DATA VOYAGEURS. DIRECTION AEROFORT. ,0,P,AE 
144@ DATA VOUS GAGNEZ LE GROS LOT A LA LOTERIE. ,5@ 
a,N 

1450 DATA GARE. TOUCHEZ 500 FF PAR VOYAGEUR. ,500,P 
146@ DATA AEROPORT. TOUCHEZ 1000 FF FAR VOYAGEUR. , 
1000,FP 

1470 DATA VOUS ACHETEZ DES PROVISIONS CHEZ LEON. ,- 
500 ,N 

1484 DATA VOYAGEURS. DIRECTION GARE. ,0,P,GA 

1498 PRINT: PRINT:PRINT'UNE AUTRE PARTIE... (D/N)"; 
1500 R$=INKEYS: IF R$<>"N" AND R$<>"0" THEN 1500 
1510 IF R$="0" THEN RUN 

1520 END 

1530 CLS:LOCATE 1,15:PRINT" HEF TAXI ":PRINT 

1549 PRINT"POUR 2 JOUEURS..." 

1550 PRINT'CHAQUE JOUEUR A UN TAXI ET EST MUNI AU 


DEPART D'UNE SOMME DE 1900 FF." 

1560 PRINT "LE BUT DU JEU EST DE CONDUIRE LE MAXIM 
UM DE FASSAGERS A LA GARE, À L'AEROFORT, À L'HOTEL 
OÙ AU PALACE. " 

1570 PRINT "CHAQUE COURSE EST REMUNEREE MAIS IL VO 
US FAUDRA PARFOIS FAYER DES TAXES POUR LA POLICE, 

LES POMFIERS...ETC..." 

158@ PRINT "AINSI, LES JOUEURS SE METTENT D'ACCORD 
AU DEFART SUR UNE SOMME À ATTEINDRE : SOIT 5000, 

SOIT 10000, SOIT 50200, SOIT 102000." 

1590 FRINT "LE PREMIER DES JOUEURS QUI A ATTEINT C 

ETTE SOMME EST DECLARE VAINQUEUR ET LA FARTIE S'AR 
RETE, “ 

1600 FRINT:PRINT "REMARQUE : SEULES LES CASES OÙ 1 
L FAUT DEPFOSER LES VOYAGEURS SONT INDIQUEES SUR L' 

ECRAN, LES AUTRES NE LE SONT PAS FOUR RESERVER L'E 
FFET DE SURPRISE !" 

1610 LOCATE 23,12 PRINT M 
me en ee me en mue "s1LOCATE 24,1:FRINT "PRESSER <RETURN 
> POUR CONTINUER... "3;:R$#=INKEYS#:1F R#$="" THEN 1610 
ELSE IF ASC(R#)<2>13 THEN 1610Q 

1620 CLS:FRINT "CHOISISSEZ LA SOMME À ATTEINDRE: " 
1830 PRINT:PRINT “"1- 5000 FF" 

1649 FKRINT:PRINT "2- 1@000 FF" 

1650 PRINT:PRINT "3- 50000 FF" 

1660 PRINT:PRINT "4- 100000 FF" 

167Q FRINT:PRINT "VOTRE CHOIX # 1 , 2, , 3 , 4 ?" 
1680 R$=INKEYS#S:1IF R$<>"1" AND R$<>"2" AND R#<>"3" 
AND R#<>"4" THEN 1680 

1690 IF R$="1" THEN S0=5000 

1700 IF R$="2" THEN S0-10000 

1710 REM ! : constante simple précision 

1720 IF R$="3" THEN 50=50000! 

1730 IF K$="4" THEN 50=100000! 

174Q RETURN HE 



















A VOS LETTRES ? 
PRÊT ? 
CHIFFREZ ! 


Vous avez des problèmes pour rédiger vos chèques ? En attendant l'arrivée 
de la carte à mémoire, le programme Numal est fait pour vous. 





partir d'une valeur numérique A 


de huit chiffres au plus, soit 200 IF L3=6 AND (V2=7 OR V2=9) THEN X=1:Z=10 
210 IF V3=1 OR (L3=2 AND V2=1 AND (V1>1 AND V1€8)) 


de 1 à 99999999, Numal vous AE ns 
renvoie une chaîne de caractères 220 ON L3 GOSUB 270,290,330,370,410,450,510,530 


représentant cette valeur en tou- 299 CHESCHEECE 


tes lettres ; deux décimales vous 
sont accordées, éventuellement. 
Michel Gautier Bi 








LINE INPUT : saisie d'une 
chaîne pouvant comporter des 
signes de ponctuation. 


Peut être remplacée par 
INPUT. 









REM---numal---version 03/85--- 
REM Programme composé par 
REM M. GAUTIER 
DIM A$(20),B#$(12) 
RESTORE 
FOR 1=Q TO 19:READ A#(I) : NEXT I 
FOR 1=Q TO 12:READ B#$(I) : NEXT I 
REM 
CLS 
100 CH$="":DN$="" 
110 LINE INFUT'"Votre valeur numérique 7 "s;VN#:1F 
LEN(UNS) > THEN 80 
12Q VN=VAL (VN$) : IN=INT(VN):1IF INC3VN THEN DN$=LEFT 


$(STR$(VN-IN) ,4) 
130 IN$=STR# (IN): LI=LENÇ(IN#)-1:1F VN>1000000'! THEN 


Li=7 
140 IF VN>10000000# THEN Li=8 

150 FOR 1=1 TO Lis:C$="":X$=""sLS=L1+1-1: Vi=D: V2=0: 
V3=0 

160 VI=VAL(MID#(VN#,1,1)):1F V1=@ THEN 240 

170 VZ=VAL(MIDS (UNS, 141,1) ) 2 VS=VAL (MID#(VN#, I+2,1) 
) 

180 X=Q:7=QDr7$="" 

190 IF (L3=5 OR L3=2) AND (Vi=7 OR V1=9) THEN X=1: 





NEXT I 

PRINT CH$;:1F DN$="" THEN PRINT ELSE PRINT DN 
GOTO 120 , 
REM 

C$=A$ (V1) : RETURN 

REM 

IF VI1<2 THEN C$=A$(1@+V2) 

IF VI151 THEN C#=B#(V1-X)+2#+A$(V2+2) 
1=1+1:RETURN 


C+$=E# (10) 
C$=A$(V1)+EB#(10@) 


C$=R#$(11) 
C#=A#(V1)+5#(11) 


Cét=A$(10+V2)+B#(11) 
430 IF V12>1 THEN C$=E#$(V1-X)+A$(V2+72)+EB$(11) 
44@ I1=1+1:RETURN 


450 REM 

460 IF Vi<2Z AND VZ<2 THEN C$=B$# (10) +A$(V2#10+V3)+E 
#+(11) 

47Q IF V1£2 AND V251 THEN C#=B#(10)+B#$(V2-X)+7$+A$ 
(V3+Z)+B# (11) 

480 IF V1>1 AND V2<2 THEN C#=A$ (V1)+E$ (10) +A#(V2%1 
Q+V3)+B$ (11) 

490. IF V1>1 AND V2>1 THEN C#$=A$ (V1) +ER#(10) +84 (V2-X 
)+2$+A#(V3+7)+E$(11) 

SQ@ I1=1+2:RETURN 

510 REM 

520 C+t=A$ (V1) +B# (12) : RETURN 

530 REM 

540 1F V1<2Z THEN C#=A$(10+V2)+B# (12) 

550 IF V1>1 THEN C$=B#$(V1-X)+2#+A#(V2+7) +B# (12) 
560 1=1+1:RETURN 

570 REM Datas 

580 DATA“" "un ","deux ","trois ",;"quatre ","cinq 
teix ‘,"sept *,"huit " 

590 DATA'"neuf ","dix “,"onze ","douze '!,"treize ", 
“quatorze ","quinze " 

680 DATA'"Sseize ","dix sept ","dix huit !","dix neuf 


618 DATA"","dix ","vingt ","trente ","quarante "," 
cinquante ","soixante " 

620 DATA'"soixante-dix ","quatre-vingt ","quatre-vi 
ngt=dis " 

630 DATA'"cent ","mille "“,;"million “ [q 
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_ LE NOMBRE D'OR ÉTAIT 
DANS LA BOÎTE 
ALLUMETTES 


L'informatique a remis à la mode l’astucieuse variante des jeux de Nim ou de 


Marienbad conçus au début de ce siècle par M. WYTHOFF : on part de deux petits tas 
d'allumettes, et chacun des deux joueurs retire à son gré soit un nombre quelconque 
d'allumettes de l’un des tas, soit un même nombre de chacun des tas. Qui enlève 
la dernière allumette a gagné, 


ue vient faire dans cette galère le Nombre d'Or, 
(1+65)/2, soit 1.618034.., clef du 
pentagramme et des cathédrales gothiques ? C'est 
ce que vous découvrirez en décortiquant le pro- 
gramme proposé, qui s'en sert pour calculer direc- 


tement le meilleur coup à partir des for- 

mules établies par M. WYTHOFF lui- 

même. Tout calcul ou stockage 

préliminaire a disparu, le pro- 

\ _ gramme est ultrarapide et, bien 

















sûr, toujours aussi difficile à 
battre. Signalons que le Nom- 
bre d'Or apparaît sous la forme 
.618034, qui est son inverse. 
Pour la suite, vous savez ce qui 
vous reste à faire... 


Pierre Barnouin M 































108 REM DEFINT À,B : définit À et B comme variable 
s entières 

110 RANDOMIZE:W=. 61898034: CLS:DEFINT À,B:A=20+8@*xRND 
(1) : B=20+80%RND (1) :M=A: N=B 

120 PRINT: INPUT"Qui commence 7? 1=Vous @=Moi “;K: 
IF K THEN 199 

130 REM SWAF M,N : équivaut à O=M: MN: N=Q 

140 GOSUB 21@:P=9:2$="J'ai":PRINT"Je retire "3:1F 
N>M THEN SWAF N,M:P=i 

150 D=M-N:E=INT(D/W):1F N>E THEN PRINT"de chaque t 
as"; :C=N-E:N=<E: GOTO 180 

160 PRINT'"'du tas de";M3:1F N=E THEN C=1:GO0TO 180 
17Q A=(,S+N) #W:CM-N-A: IF NCDINT(A/W) THEN B=(.5+N 
)#WkWz C=M-N+B 

180 PRINT C;'"allumettes":M=M-C:1F P THEN SWAP M,N 
190 GOSUB 210: INPUT"Combien retirez-vous du tas À 
"#A: INPUT'et du tas B ":3B 

200 IF (A-B)*xAxB OR A>M OR B>N THEN 190 ELSE Z#="V 
ous avez ":M=M-A:N=N-B:GOTO 140 

219 FRINT"'Dans À, il y a";M;"et dans B";N;s"allumet 
tes":1F M+N THEN RETURN 

220 PRINT Z$;" gagné !!!":RUN E 
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go p0pé = 


4.814E 12030443 


L° nombres de Bernoulli se 
rencontrent dans les coeffi- 
cients de nombreux développe- 
ments en série. Par exemple, on a : 
tgx = x+1/3 x13+2/15 x\5 
+17/315 x\7+... 

=212(212-1)/21B1x+214(2" 
4-1)/41B2x13+216(216-1)/6! 


B3x/5 +... 

avec B1=1/6 
B2=1/30 
B3=1/42 
B4=1/30 


Dans la pratique, les nombres de 
Bernoulli se calculent par récur- 
rence, c'est-à-dire que le 20° est 
obtenu des précédents après vingt 
calculs en cascade... 

Le programme calcule directement 
les nombres grâce à une formule 
d'approximation, de sorte que 
vous pouvez obtenir directement 
le dix millionième nombre de Ber- 


noulli, si cela vous chante, en un 
seul calcul : 

B(10000000)=1.814 E 121371117 
Les possibilités du programme 


dépendent de la précision de votre 
ordinateur, c'est-à-dire du nombre 
de chiffres significatifs avec lequel 
il calcule (variable PR à adapter). 

P-L. Gedo Hi 


NOMBRES 





10 DEFDBL N,P,M,Y,2,R,S,T,U,V,W,X:REM Double préci 
sion 

20 REM NOMBRES DE BERNOULLI 
30 REM AUTEUR : P. L. GEDO 
40 REM INITIALISATION 

50 CLS 

62 INPUT'N "$N 

7Q 1F N>9 THEN 180 

80 REM CALCUL DIRECT 

90 G=N 

100 FOR 1=1 TO Q 

119 READ C(1) 

129 READ D(1I) 

130 B(N)=C(1)/D(1) 

140 NEXT 1 


150 DATA 1,6,1,30,1,42,1,30,5,66,691,2730,7,6,3617 
1510,43867,798 

169 PRINT"'BC";Ny")="pCCN) 5 "/"3 DEN); "æ"3 BEN) 

17@ END 

189 REM CALCUL ASYMPTOTIQUE 

190 REM Nombre de chiffres significatifs fournis p 
ar l'ordinateur 


200 PR=17 

210 REM FI... 

220 P=4#ATN(1) 

230 REM M=1/1n10=0,43429... 
240 M=1/L06 (10) 





REM Y : coefficient de correction de convergen 


Y=1 
IF NCSQ THEN Y=1+2" (-24N) #37 (—2#N) +47 (—22#N) 
REM Z : terme correctif de la formule de Stirl 


Z=1/24/N-1/2880/N"3+1/48320! /N°S5 

REM R : log naturel de B(N) 

R=LOG (4#Y) +Z+,S#LO6(P#N) +24N# (LOG (N/P)-1) 

REM S : log décimal de B(N) 

S=M4kR 

REM T : partie entière de S (=exposant de B(N) 


T=INT (6) 

REM Ù : partie décimale de S 

U=S-T 

REM V : mantisse brute de B(N) 

V=1@"U 

REM W : nbre de décimales de la mantisse de B( 


W=PR-3I-INT (MMOG (T+.5) ) 

REM X : mantisse nette de B(N) 

X=10 (-W)#INT (V#10"W+, 5) 

IF X=Q THEN PRINT" N TROP GRAND":END 
IF X=1Q THEN X=1:T=T+1 

PRINT"B("GNz "De"; X3"E" ST 

END 
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LES MORLOCKS 
SONT DE RETOUR 





Eh oui ! Depuis H.6, Wells, on n'a rien inventé de mieux comme jeu d'aventures : 
à vous de délivrer la belle princesse... 





François Coulon 
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18 CLS 
206 FRINT" La caverne des Morlocks" 

30 FRINT'PFar François Coulon":FPRINT 

3@ DIM Até,10) ,A# (6,10): XI=INT (RND C1) #6) +1: VIS INT 
RND (1) #9) +1 

50 X3=INT (RND (1) #9) +1: YS= INT (RND(1)#6)+1:1F X3=2 À 
ND Y3=8 THEN S@ 

60 X=1:Y=1 

70 FOR X2=1 TO 6: FOR YZxi TD 10:READ AF(X2,Y2) :NEX 
T YZ:NEXT X2 

80 FRINT"Voulez-vous la règle du jeu 7 " 

90 GOSUR 4970:1F NOT FL. THEN 570 

100 PRINT Ménsnnaninnne seems moneminnes RÉGIE OL Paie ne ee 
1106 FRINT 

120 FRINT"18 avril 1934. Vous étes dans la jungle" 
130 FRINT"Vous arrivez devant l'entrée d'une" 

140 FRINT'caverne. 

150 FRINT"C'est le repaire des horribles Morlocks" 
1860 FRINT'et vous devez délivrer tous leurs" 

170 FRINT"'prisonniers. Vous décidez, à vos risques 
180 FRINT'et périls, d'y pénetrer..." 

190 FRINT 

200 PRINT'A chaque fois, l'ordinateur vous décrit" 
210 PRINT'"'la pièce dans laquelle vous vous" 

220 FRINT'"'trouvez et éventuellement vous pose une" 
230 FRINT'question à laquelle vous répondez par" 
240 FRINT"oui ou par non (Ozoui Nsnon)" 

250 PRINT 

260 PFRINT"'Ensuite, il vous demande vers quelle" 
270 FRINT'"'direction vous désirez aller." 

280 PRINT" (O=Ouest, EsEst, N=Nord, S=Sud)" 

290 PRINT e i 

300 FRINT"'Tapez (1) pour un inventaire complet" 
X1Q FRINT"des objets que vous avez pris." 

320 FRINT"Ils peuvent vous ètre utiles ou" 

330 FRINT'néfastes." 

340 PRINT 

35Q FRINT TAB(15) "Bonne chance !" 

360 PRINT 

370 GOTO 550 

380 XX=X:YY=Y 

39Q PRINT 

408 FRINT"'Quelle direction choisissez-vous ? ": 
410 D$F=INKEYS# 

420 IF D$="1" THEN PRINT D#:GOTO 5@40 

430 IF D$<>"N" AND D#<>"S" AND D#<>"E" AND D$:3>"0" 
THEN 41@ 

440 Fi=1 

450 FOR ZZ=1 TO LEN(CAF(X,Y)):1IF MID#(A#(X,Y),2Z2Z,1) 
=D$ THEN F1=0 

460 NEXT ZZ 

47Q IF Fi THEN PRINT 

480 IF F1 THEN FRINT "Impossible de prendre cette 
direction":X=XX:Y=YVY:GOTO 409 

A9 IF D$="N" THEN Dé$="NORD":Y=Y#1 

S0Q IF D$="S" THEN D#="SUD'":Y=Y-1 

510 IF D#="0" THEN D$#="QUEST":X=X-1 

520 IF D$="E" THEN D#="EST":X=X+1 

530 PRINT D# 

540 PRINT "= uno on nano ce te bté 
550 DD#=" " 

560 FOR ZZ=i TO LEN(A#(X,V)):G$=MID#(A#(X,V),27Z,1) 
:GOSUB S440:DD#=DD#++G#++" ":NEXT 2ZZ 

570 PRINT'Directions possibles : ":PRINT:PRINT DD# 
: PRINT 

S58@ IF NOT(X=1 AND Y=1) THEN 660 

590 FRINT"Une pièce au sol couvert de sang. Trois" 
608 FRINT'cadavres sont étalés par terre." 

61 IF CO THEN 668 

670 FRINT'"'Un couteau est resté planté dans la" 

6%8 FRINT"poitrine de l'un d'eux." 

648 FRINT'Frenez-vous ce couteau 7?" 

650 GOSUR 4970@:1F FL THEN CO=1 

660 IF NOT(X=1 AND Y=2) THEN 710 

670 PRINT'Un Morlock se dirige vers vous et" 

680 PRINT"'s'apprète à vous attaquer..." 

690 IF CO THEN PRINT'"'Vous le tuez avec votre coute 
au":GO0TO 710 

700 PRINT'"IL1 vous étrangle et c'est la #in..."s#60T 
0 5210 

71@ IF NOT(X=1 AND Y=3) THEN 770 

720 PRINT"Un squelette est assis dans un coin de" 

730 PRINT"la pièce." 






























































































































































740 PRINT"'Lui adressez-vous la parole pe" 

750 GOSUB 4970:1F FL THEN FRINT"Vous sentez que vo 

us vous transformez":PRINT'"en Morlock 111": GO0TO 52 

10 

760 PRINT'Rien ne se passe..." 

770 IF NOT(X=1 AND Y=4) THEN 860 

78Q FRINT'"Une magnifique blonde se tient debout" 

790 PRINT"devant vous. C'est une esclave." 

800 IF Bi THEN 860 

810 FRINT'Elle vous dit ‘Frenez ce bijou. Il vous" 

82@ PRINT'aidera"" 

830 FRINT"Prenez-vous ce bijou 7?" 

840 GOSUB 4970:1F FL=i THEN BI=1:PRINT"Elle vous r 

egarde sans rien dire" 1 

850 IF NOT BI THEN PRINT'Elle s'assied, un peu tri 

ste semble t'il" 

860 IF NOT(X=1 AND Y=5) THEN 910 

87@ FRINT'Une table. Dessus, un message qui vous d 

VE ‘én 

880 PRINT'de ne pas craindre le bruit des" 

890 PRINT'"serpents et que le trésor doit être" 

900 PRINT'"'ouvert" 

910 IF NOT(X=1 AND Y=6) THEN 970 

920 FRINT'"'Quelques inscriptions sont peintes sur " 

930 FRINT'les murs ainsi que des dessins qui" 

940 PRINT'"'semblent préhistoriques." 

950 PRINT"Vous approchez-vous de ces dessins 7?" 

960 GOSUB 497@:1F FL THEN PRINT"Rien de spécial, p 

ourquoi 7" 

97@ IF NOT(X=1 AND Y=7) THEN 1049 

980 FRINT'"Des lutins dansent autour d'un puits..." 

998 PRINT"Ils sont très joyeux et vous invitent" 
1008 PRINT'"'à regarder dedans." 

1810 PFRINT'"'Le faftes-vous 7" 

1020 GOSUB 4970:1F FL THEN PRINT'"Ils vous y précip 

itent allègrement...":60T0 5210 

1030 FRINT"Ils continuent leur danse..." 

1049 IF NOT(X=1 AND Y=8) THEN 1119 

1850 FRINT"Un vampire se tient devant vous. Il a 1 

a" 

1060 PRINT'"'ferme intention de faire un bon repas.. 
“” 

1070 IF AI THEN FRINT"I1 remarque la gousse d'ail 

que vous":PRINT'tenez et en tombe raide mort ":GOTO 
1110 

1080 FRINT"Dans l'impossibilité de vous défendre," 
1099 FRINT'"'il vous mord et suce votre sang." 

1100 FRINT"C'est fini pour vous.":GOTO 5210 

1119 1F NOT(X=1 AND Y=9) THEN 1210 

1120 FRINT"Vous vous trouvez soudain face à face" 
1130 PRINT'avec votre parfait sosie qui vous" 

1140 FRINT'demande si vous allez bien." 

1150 FRINT'"'Allez-vous bien 7" 

1160 GOSUER 4970:1F FL THEN FRINT"'IL1 vous répond : 
‘Moi, ça va bien aussi ‘":GOTO 121@ 

1170 FRINT"Vous le voyez viellir à vu d'oeil !!!" 
1180 FRINT"En regardant vos mains, vous comprenez" 

1190 FRINT'que vous faftes de même. Dix secondes" 
1200 FRINT'après, vous n'étes plus qu'un squelette 

.":GO0TO 5210 

1210 IF NOT(X=1 AND Y=10) THEN 1500 

1220 FRINT'Un globe de verre donne sur la jungle." 

1230 IF NOT MR THEN 1300 

1240 FRINT"Voulez-vous tenter de briser ce globe" 

1250 PRINT"pour vous échapper ?" 

1260 GOSUB 497@:1F NOT FL THEN 1500 

1270 FRINT"Dans cette jungle règne une atmosphère" 

1284 FRINT'irrespirable et vous mourez donc par as 

phyxie." 

1290 GOTO 5210 

1300 1F NOT(X=2 AND Y=1) THEN 1360 

1310 FRINT"Une voix vous dit ‘Appuyez sur le bouto 


1320 PRINT'vert pour connaître la suite'" 

1330 FRINT'"Tapez-vous sur ce bouton ?" 

1340 GOSUR 4970:1F FL THEN FRINT'"'Elle répond ‘Cela 
vient de vous sauver":FRINT"'I1a vie" 

1350 IF NOT(FL) THEN PRINT'"'L'eau envahit la pièce 
et vous mourez noyé": GOTO 5210 

136Q 1F NOT(X=2 AND Y=2) THEN 1410 

1370 PRINT"Vous ètes dans un long couloir. Sur les 


1580 FRINT'murs sont accrochées des torches." 
1390 PRINT"'En prenez-vous une 7?" 
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LES MORLOCKS SONT DE RETOUR 


1400 GOSUB 4970:1F FL THEN TR=1i 
141@ 1F NOT(X=2 AND Y=3) THEN 1450 
1420 IF NOT TR THEN PRINT'"Une grotte obscure. Impo 
ssible de":PRINT'"trouver la sortie. Vous restez bl 
oqué 1à":PRINT"'à tout jamais":G6O0TO 5210 
14350 PRINT"Une pièce éclairée seulement par la" 
1440 PRINT'"lumière de votre torche" 
1450 IF NOT(X=2 AND Y=4) THEN 1550 
146@ PRINT"Une machine étrange... Dessus,il y a un 
LL s 
1470 PRINT'"'levier rouge" 
1480 PFRINT"Tentez-vous d'utiliser cette machine 7" 
1490 GOSUB 4970:1F NOT FL THEN 1550 
1500 PRINT'Elle permet de disparaître et de“ 
1510 PRINT'"reapparaître dans une autre pièce au“ 
1520 PRINT"hasard..." 
1530 X=INT (RND(1)#6+1) : Y=INT (RND(1)#1@+1) 
1540 GOTO 540 
1550 1F NOT(X=2 AND Y=5) THEN 1620 
1560 FRINT"Vous êtes dans une pièce où se trouve" 
1579 PRINT'une enclume et des outlis" 
1580 IF MR THEN 1629 
1590 PRINT"Vous remarquez un marteau à rayures." 
1400 PRINT"Prenez-vous ce marteau 7?" 
1610 GOSUB 4970: IF FL THEN MRa=1 
1620 1F NOT(X=2 AND Y=6) THEN 1690 
1630 PFRINT"Une grande serre où poussent des fleurs 
” 
1648 PRINT"inconnues. Vous entendez des pas..." 
1650 PRINT'Restez-vous ici 7" 
1660 GOSUB 4970:1F NOT FL THEN 14690 
1670 PRINT"'La trappe d'une oubliette s'ouvre sous" 
1689 PFRINT"vos pieds.": GOTO 5210 
18699 IF NOT(X=2 AND Y=7) THEN 1740 
1708 PRINT"Vous êtes dans une pièce où se trouve" 
171@ PRINT'une trappe," 
1728 PRINT"Tentez-vous de l'ouvrir 7" 
1730 GOSUB 4970:1F FL THEN PRINT'"Quelques rats en 
sortent..." 
1746 IF NOT(X=2 AND Y=8) THEN 1790 
1750 PRINT"Vous remarquez un journal datant de" 
1768 FRINT"1835 ainsi qu'un passage secret." 
177@ PRINT"L'empruntez-vous 7" " 
1780 GOSUB 4970:1F FL THEN X=X3:Y=Y3:GOTO 540 
1790 1F NOT(X=2 AND Y=9) THEN 1850 
1808 PRINT'"Deux Morlocks vont se jeter sur vous !" 
1810 1F TR THEN PRINT'"'Mais ils ont trop peur du fe 
u de votre torche":GO0OTO 1850 
1820 IF CO THEN PRINT'"'Malgré votre couteau, ils ré 
ussissent à vous tuer":G6G0OT0O 5219 
1850 IF MR THEN PRINT"Vous tuez le premier avec vo 
tre marteau mais le second est trop fort pour vous 
“:G0T0 5210 
1840 PRINT"'Sans armes, vous ne pouviez rien faire. 
":PRINT"Vous êtes mort.'":GOTO 521Q 

IF NOT(X=2 AND Y=1@) THEN 1890 

PRINT'"Un robot vous déclare ‘AIAHABAYAOADATAY 


PRINT"'Bien sûr ,sans la clé du code, impossibl 


PRINT"de déchiffrer ce message..." 
IF NOT(X=3 AND Y=1) THEN 1980 
PRINT"Vous êtes dans une pièce où trois loups 


PRINT"sont attachés." 
IF TR THEN PRINT'"'Par bonheur, ils ont peur de 
votre torche":G0TO 1980 
1930 PRINT'"Vous vous apercevez à vos dépens que" 
1940 PRINT"la corde qui les retient est assez" 
1958 PRINT'"longue pour qu'ils vous atteignent et" 
1960 FRINT"vous dévorent. " ï 
1970 GOTO 5210 
1980 1F NOT(X=3 AND Y=2) THEN 2010 
1990 PRINT"Vous êtes dans une pièce vide." 
2000 1F TR THEN FRINT"'Mais vous glissez et laisser 
tomber votre torche dans 1 ‘eau":TR=0 
2010 IF NOT(X=3 AND Y=3) THEN 2110 
2020 PRINT"Un buffet Henri 11" 
2030 1F AI THEN 207@ 
2040 PRINT"Une gousse d'ail y est posée." 
PRINT"Frenez-vous cette gousse d'ail 7" 
GOSUB 4970:1F FL THEN AI=1 
PRINT"IL1 y a aussi un livre intitulé :" 
PRINT'"‘La cuisine de À à Z'‘" 


2090 PRINT'"'Prenez-vous ce livre 7" 
2100 GOSUR 497@:1F FL THEN AZ=i 
211@ IF NOT(X=3 AND Y=4) THEN 2220 
2120 PRINT"Vous êtes dans une pièce sombre où se" 
2130 PRINT'trouve un coffre fermé par un lourd" 
2149 PRINT"cadenas." 
2150 PRINT"'Voulez-vous l'ouvrir 7" 
2160 GOSUB 497@:1F NOT FL THEN 2220 
2170 1F NOT NR THEN PRINT'"'Impossible de l'ouvrir... 
.":GOTO 2220 
2180 IF MR THEN PRINT'"'Victoire ! Le coffre est ouv 
ert mais" 
2190 PRINT'"des Morlocks surpris par le bruit font" 
2200 PRINT"irruption dans la pièce et vous" 
2210 PRINT'"'tranchent la gorge.":GOTO 5210 
2220 IF NOT(X=3 AND Y=S) THEN 2300 
2230 PRINT'"'Une fontaine représentant un lion" 
2240 IF NOT BI THEN FL=@:GOTO 2290 
2250 PRINT"Vous remarquez un petit trou où" 
2260 PRINT'"logerait juste votre bi jou." 
2270 FRINT'Mettez-vous votre bijou dans ce trou 7?" 
2280 GOSUB 4970:1F FL THEN FRINT"'La fontaine s'ouv 
re et laisse apparaftre un message disant ‘Vous av 
ez de la chance, reprenez votre bijou'" 
2290 1F NOT FL THEN PRINT'"Vous recevez un jet d'ea 
u bouillante. Vous êtes mort.":6G0T0 5210 
2300 IF NOT(X=3 AND Y=6) THEN 2360 
2310 PRINT"Vous êtes dans une pièce au sol plein" 
2320 PRINT"d'huile. 11 règne une forte odeur de ga 
2," . 
2330 PRINT"Vous attardez-vous dans cette pièce 7?" 
2340 GOSUB 497@:1F FL AND TR THEN PRINT'"I1 se prod 
uit alors une forte explosion (pensez à votre torc 
he). Vous êtes mort.":6G0TO 5210 
2350 PRINT"Rien de spécial..." 
2360 IF NOT(X=3 AND Y=7) THEN 2460 
2370 FRINT"Un cuisinier Morlock vous regarde" 
2380 FRINT'"étrangement, .." 
2390 1F NOT AZ THEN 2440 
2400 FRINT'"'I1 vous arrache votre livre des mains" 
2410 PRINT'et regarde à la page de 1'‘homme aux" 
2420 PRINT'"'carottes. Inutile de dire que vous alle 
>" 
2450 PRINT'"mourir.":GOTO 5210 
2440 PRINT"'IL y a une lueur de déception dans ses" 
2450 PRINT'"gros yeux noirs..." 
2460 IF NOT(X=3 AND Y=8) THEN 2500 

PRINT'"Une voix vous dit ‘Vous avez devant vou 


PRINT'une potion. En buvez-vous 7°" 

GOSUR 497@:1F FL THEN FRINT"'Rien pour l'insta 
nt...":PO=i 
2500 1F NOT(X=3 AND Y=9) THEN 2550 
2510 PRINT'"Une longue pièce où sont entassés de“ 
2520 FRINT'"'nombreux squelettes. Ca sent très" 
2530 FRINT'mauvais." 
2540 PRINT'A part cela, il y a aussi quelques arai 
gnées. " 

IF NOT(X=3 AND Y=10) THEN 2620 

PRINT'"'Un long couloir... Un homme vous demand 


FRINT"'Avez-vous le message 7?" 

IF NOT ME THEN PRINT'"'Comme vous ne l'avez pas 
appelle les gardes qui vous tuent":GOTO 5210 
PRINT'"Heureusement, vous l'avez, Vous lui" 
PRINT'montrez et il vous murmure à l'oreille 


PRINT" ‘C'est dur la vie d'artiste'" 

IF NOT(X=4 AND Y=1) THEN 2690 

PRINT"Vous êtes dans une bibliothèque aux" 
PRINT'livres pleins de poussière..." 

IF ME THEN 2690 

PRINT' Vous remarquez un message" 
PRINT'incompréhensible. Le prenez-vous 7" 
GOSUB 4970:1F FL THEN ME=1 

IF NOT(X=4 AND Y=2) THEN 2740 

FRINT'"Une pièce pleine d'esclaves enchaînés.. 


PRINT'"Ils vous supplient de les délivrer." 
PRINT'Essayez-vous de le faire 7?" 

GOSUB 4970:1F FL THEN PRINT"'Et comment ça 7?" 
IF NOT({X=4 AND Y=3) THEN 2790 

PRINT'"Une petite salle vide. Dans un coin de" 
FRINT'"la pièce est posé un petit paquet." 
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2800 
2810 
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PRINT"'Désirez-vous l'ouvrir 7?" 
GOSUB 4970:1F FL THEN PRINT'Malheureusement, 


il est piégé, vous êtes mort.":GOTO 5210 


IF NOT(X=4 AND Y=4) THEN 2850 

PRINT"Vous étes à l'intérieur d'une petite" 
PRINT"chapelle faiblement éclairée. Sur le" 
FRINT'sol, quelques rats morts..." 

IF NOT(X=4 AND Y=5) THEN 2950 

PRINT'"Vous êtes devant un énorme tronc" 
PRINT'd'arbre. En lui donnant un coup de pied 


PRINT'vous vous rendez compte qu'il sonne" 
PRINT ‘creux, " 

PRINT"L'examinez-vous de plus près 7" 
GOSUB 4970:1F NOT FL THEN 2950 

PRINT"I1 y a les restes d'une ruche" 

IF MI THEN 2950 

PRINT'avec encore un peu de miel." 
FRINT'Le prenez-vous 7" 

GOSUB 497@:1F FL THEN MI=1 

IF NOT(X=4 AND Y=6) THEN 3040 

PRINT"Une pièce vide. Soudain, vous sentez un 


‘PRINT'couteau sur votre gorge." 


PRINT"On vous dit de donner tout votre or." 
IF NOT GO THEN PRINT"Vous n'en avez pas, votr 


e agresseur vous tue.":GOTO 5210 


FRINT"Vous le faîtes..." 

FRINT'"Votre attaquant vous dit que vous avez" 
PRINT'"de la chance. 11 s'en va en courant." 
G0=@ 

IF NOT(X=4 AND Y=7) THEN 3100 

FPRINT"Un énorme ours est prèt à vous attaquer 


IF NOT MI THEN PRINT"I1 vous saute dessus et 
mange.":GOTO 5219 
PRINT'"'Heureusement pour vous, vous avez du mi 
PRINT"IL le mange et vous laisse tranquille." 
MI=Q 

IF NOT(X=4 AND Y=8) THEN 3160 

PRINT'"Une petite salle avec un coffre." 

IF GO THEN 3160 

PRINT'"IL y a dedans de l'or." 

PRINT'"'Le prenez-vous 7?" 

GOSUB 4970:1F FL THEN GO=i 

IF NOT(X=4 AND Y=9) THEN 3250 

PRINT"Une pièce vide à part un Apple II sur" 
PRINT'une table située au milieu de la salle. 


PRINT'"'Sur son écran est écrit :" 

D=ABS (X-X1) +ARS(Y-Y1) 

PRINT" "Encore "3D;"pièce(s) et vous gagnez." 
FRINT"I1 y a aussi quelques pommes..." 

IF NOT(X=4 AND Y=1@) THEN 3290 

PRINT'"Une pièce immense..." 

FRINT'Sur un autel de sacrifice, la statuette 


PRINT'"'d'un Morlock." 
FPRINT'"L'emportez-vous 7" 

GOSUB 4970:1F FL THEN ST=1 

IF NOT(X=S AND Y=1) THEN 3380 

PRINT"Un couloir boueux, éclairé seulement pa 


PRINT"le jour que fait apparaître une" 
PRINT'"cheminée communicant avec l'air libre." 
PRINT'"Regardez-vous le jour par la cheminée 7? 


GOSUR 4970@:1F NOT FL THEN 5380 

FRINT"Des Morlocks vous jettent des pierres" 
PRINT'de la surface..." 

GOTO 5210 : 

1F NOT(X=5 AND Y=2) THEN 3480 

PRINT'Une grande salle de banquet (bizarre" 
PRINT'"chez les Morlocks)." 

PRINT"I1 y a une bonne odeur de cuisine." 
PRINT"'Vous vous sentez fatigué..." 
PRINT"Vous reposez-vous 7" 

GOSUB 4970:1F NOT(FL AND TR) THEN 3489 
PRINT'Avec votre torche, vous enflammez la" 
FRINT"'pièce. Vous périssez dans un magnifique 


PRINT"”incendie.":G0OTO 5219 
1F NOT(X=S5 AND Y=3) THEN 3550 
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3700 
3710 
3720 
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3740 
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3780 
3790 
3800 
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3820 








38350 
3840 
2" 
3850 
3860 
5870 
3880 
3890 
3900 
3910 
3920 
3930 
39740 
3950 
3960 
3970 
ur LL 
5980 
3990 
4008 
401@ 
4020 
4030 
4040 
4050 
4060 
407Q 
408a 
4090 
GOTO 
4100 
4110 
4120 
4130 
4140 
4150 
5210 
4160 
4170 
4180 
4190 
4200 
4218 






































PRINT'"Une pièce pleine de coquillages et de” 


FRINT'semble marcher encore car un 


FRINT"fait toujours entendre ainsi que le“ 








PRINT'sable..." 


PRINT"Frenez-vous un peu de sable 7?" 


GOSUB 4970:1F FL THEN SB=i 


PRINT'Frenez-vous un de ces coquillages Lu 


GOSUB 4970:1F FL THEN CO=1 
IF NOT(X=5 AND Y=4) THEN 3640 
FRINT"Vous êtes devant une grande horloge qui 


tic-tac s 





FRINT'balancier qui bouge toujours." 
PRINT'"'Restez-vous pour observer ?" 
GOSUB 4970:1F NOT FL THEN 3640 
FRINT"Vous vous apercevez que les aiguilles" 
PRINT"tournent à l'envers !!" 

IF NOT(X=5 AND Y=5) THEN 3720 

FRINT"'Un salon où sont installés, en rond, de 


FRINT'fauteuils. (bizarre chez les Morlocks)" 
PRINT"Sur la table centrale, une feuille de" 
PRINT"papier sur laquelle est écrit :" 
PRINT'"'Clé du code secret" 
PRINT'"'Prenez-vous cette feuille ?" 

GOSUB 497@:1F FL THEN CS=i 

IF NOT(X=S5 AND Y=6) THEN 5810 

FRINT'"Une pièce vide sauf quelques cafards... 


1F NOT CS THEN 3810 
FRINT"Vous entendez 
FRINT'code secret a 
PRINT"'Un homme vous 


crier à coté ‘La clé du“ 
disparu !!!°" 
surprend, il dit que vous 


FRINT'étes un voleur. 
FRINT"la clé du code." 
GOTO 5210 

IF NOT(X=5S AND Y=7) THEN 3900 

PRINT"Un homme visiblement chinois vous dit : 


I1 vous tue et reprend" 


PRINT"'La logique est l'art de déceler" 
PRINT'"l'évidence cachée‘. Etes-vous d'accord 


GOSUR 497@:1IF FL THEN 3890 
PRINT"IL1 dit ‘Soyez maudit !° Des dizaines de 
PRINT'Morlocks surgissent dans la pièce et" 
FRINT'vous tuent.":GOTO 5210 

PRINT"I1 dit ‘Vous étes très sage'" 

IF NOT(X=S AND Y=8) THEN 3960 

PRINT'"Un phonographe...":1F DI THEN 3960 
PRINT"I1 y a aussi le premier disque de Tino" 
PRINT'"Rossi,." 

PRINT"Frenez-vous ce disque ?" 

GOSUB 497@:1F FL THEN DI=1 ‘ 

IF NOT(X=5 AND Y=9) THEN 3990 

PRINT"'Rien, sauf des chaînes, certainement po 


PRINT"'les futurs esclaves." 

IF NOT(X=5 AND Y=1@) THEN 4100 

PRINT"Un lac souterrain inquiétant, l'eau" 
PRINT'semble très sale. Il y a aussi un" 
PRINT'revolver sur l’autre rive. 11 est" 
PRINT'possible d'aller le chercher en“ 
PRINT'"contournant le lac." 

PRINT'Le faîtes-vous 7" 

GOSUB 4970:1F NOT FL THEN 4100 

PRINT'"Vous glissez sur une pierre et vous" 
PRINT"'tombez dans l'eau. Elle est si froide" 
PRINT'que vous êtes gelé en trois secondes. "1: 
5210 

IF NOT(X=6 AND Y=1) THEN 4190 

PRINT"'Derrière vous, vous entendez le bruit" 
PRINT'd'un serpent. Vous n'avez pas le temps" 
PRINT"de vous sauver. Il vous mord..." 

IF TR AND CO THEN 4160 

PRINT"Vous mourez en quelques minutes. ":GOTO 


FRINT"Vous cautérisez la plaie avec votre" 
PRINT'torche et votre couteau. Ca fait mal" 
PRINT'mais vous survivez." 

1F NOT (X=6 AND Y=2) THEN 4210 

PRINT"Des habits de moines sur des cintres." 
IF NOT(X=6 AND Y=3) THEN 4300 








LES MORLOCKS SONT DE RETOUR 


FRINT'"Une assemblée de moines. 11s portent to 
FRINT'des torches à la main. 
IF TR THEN 4280 

PRINT"L'un d'eux s'approche de vous. 


Ils sont assis." 
11 a une 


FRINT'face de squelette. 11 vous enfonce un" 
PRINT'"'poignard dans les côtes.":G60T0 5210 
PRINT'"I1s s'écrient tous ensembles ‘Soyez des 
PRINT'notres !!'°" 
1F NOT(X=6 AND Y=4) THEN 4400 
PRINT'Une vieille manette toute rouillée. Vou 
FRINT'pouvez la tirer vers vous." 
FRINT'"'Le faïtes-vous 7?" 
GOSUB 497@:1F NOT FL THEN 4400 
PRINT'"Une partie du sol s'ouvre sous vos" 
PRINT'pieds. Vous tombez dans une fosse plein 
PRINT'de serpents et d'araignées. Impossibe d 

PRINT'"remonter. " 

GOTO 5210 

IF NOT(X=6 AND Y=5) THEN 4460 

FRINT'"'Une salle pleine de pierres." 

IF NOT DI THEN 4460 

PRINT'"'Soudain, vous trébuchez et vous faîtes" 

PRINT'tomber votre disque de Tino Rossi, il s 
e casse." 
4450 DI=0 
446Q IF NOT(X=6 AND Y=6) THEN 4500 
4470 FRINT"Une pièce vide aux murs gris et sales." 
4480 FRINT"IL y règne une odeur particulièrement" 
4490 FRINT'mauséabonde vous fäâfsant penser à un 60 
out." 
4500 IF NOT(X=6 AND Y=7) THEN 4620 
4510 FRINT"Un laboratoire avec de nombreuses" 
4520 FRINT"'éprouvettes, des tubes en verre et de" 
4530 PRINT'multiples bocaux remplis d'étrange liqu 
ides..." 
454@ FRINT"Un homme en blouse blanche s'approche" 
4550 PRINT'et vous dit Avez-vous mon disque préf 
eré 7°" 
456 IF NOT DI THEN FRINT"Vous ne l'avez 
OTO 4400 
457 FRINT'"'IL1 voit le disque de Tino Rossi et“ 
4580 FRINT'"'tente de s'en emparer. Le laissez-vous 
faire 7" 

GOSUB 497@:1F FL THEN DI=0:G60TO 4620 

FRINT'"I1 répand dans la pièce une sorte de ga 


pas...'":6 


PO=1 

IF NOT(X=6 AND Y=8) THEN 4660 

FRINT'Une grande pièce pleine de poussière." 
FRINT'"Il y à quelques corps défigurés et" 
PRINT'plein de sang..." 

IF NOT(X=6 AND Y=9) THEN 4750 

IF TR THEN 4710 

FRINT'"Une pièce totalement obscure. Vous n'av 
PRINT'"'pas le temps de voir le Morlock qui se" 
PRINT'jette sur vous et vous tue.'":GOTO 5210 
PRINT'"'Une pièce sombre, éclairée par votre" 
PRINT'torche, Vous avez juste le temps de voi 


FRINT'"'le Morlock qui veut vous attaquer et de 


PRINT'"#uir. Il ne vous rejoint pas." 

IF NOT(X=6 AND Y=1@) THEN 477@ 

FRINT'"'Une pièce vide. Rien ne se passe." 

IF Xi=X AND YI1=Y THEN 4790 

GOTO 380 

FL M MMM DEHEHEDDEHE DH DD DE DH DEEE DEEE EE HE 

PRINT F#:PRINT "+ Vous avez gagné !! 
#": PRINT F# 

FRINT'"En regardant la pièce dans laquelle" 

FRINT'vous êtes, vous avez remarqué un" 

PRINT'message contenant la formule magique" 

PRINT'"permettant de mettre les Morlocks ainsi 


FRINT'que toute personne malfaisante de 1a" 
FRINT'grotte hors d'état de nuire !" 
PRINT'"Vous remarquez aussi ia clé permettant" 
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èrieur 


4960 
4970 
4580 
4990 


5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5350 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 


PRINT'"d'ouvrir toutes 
IF NOT BI THEN 492@ 
PRINT'"'En allant délivrer La blonde, 


les chaînes !" 
vous sere 


PRINT"sûr d'avoir L'asour pour la vie !" 

IF NOT PO THEN 4958 

PRINT'Mais une étrange maladie vous emporte" 
FRINT'en quelques semaines..." 

PRINTIPRINTEE passage secret mène vers l'ext 
GOTO 521@ 

PRINT 

AS=INKEYS#: IF A$<>"N" AND A$<2>"0" 
IF A$="0" THEN FL=-1:A$="OUI" 
REM NOT(@)=-1 NOT(-1)=@ 

IF A$="N" THEN FL=8:A$="NON" 
PRINT'-2>"5;:FRINT A$ 

RETURN 
FRINT:PRINT!--------INVENTAIRE DES OBJETS---- 


THEN 4980 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


PRINT"Un couteau“ 

PRINT"Un bi jou" 

PRINT"Une torche“ 

PRINT"'Un marteau" 

PRINT"Une gousse d'ail" 

PRINT'"'Un livre ‘La cuisine de À à 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
GOTO 5:98 
PRINT: PRINT 
FRINT'"'Voulez-vous jouer encore ?" 
GOSUR 497@:1F FL THEN RUN 
FRINT:PRINT TAB(15) "Au revoir !" 


PRINT "Un 
PRINT "Du 
FRINT"De 
PRINT"La 
PRINT "Un 
PRINT "Un 
FRINT"La 
PRINT "Un 


message codé" 

miel" 

Si » | ad 

statuette d'un Morlock" 
peu de sable" 
coquillage" 

clé du code secret" 
disque de Tino Rossi" 


NE , NS, NSE ,NSE 
NS ,NSE ,NSE ,NSE 
NSE,S 
EO,NE,E0S,0 
E,NO,SE0 ,NEO 
NSEO, S 
NO,NSEO,SE0,NE 
NS0, SE , NO, NSO 
NSEO,8 
E,E0,NE0,0S 
NE ,NSEO ,NS0,SE 
NEO, SE 
NEO ,NSEO,SE0,NE 
NSEO , N50 ,NS ,NSEO 
NSEO,SE0 
NO, 50 , NO ,N50 
NS0,NS,NS,50 
NO, 50 

IF G$="0" 

IF G+="E" 

IF G$="S" 

IF G#="N" 

RETURN 


THEN G$="QUEST" 
THEN G$="EST" 
THEN G$="SUD" 
THEN G#$="NORD" 








( 
À A 





Voici une nouvelle méthode d'étude des nombres premiers, fondée sur le petit théorème 
de Fermat. Le programme exploite les avantages que procure le caleul en double 
précision pour traiter de grands nombres (de l'ordre de dix chiffres), mais peut aussi 

pour les Basie en simple précision. | 21:75 EE ver ra r-en xtrurn x 


ee WXINT (V/F) )+CV=-F#INT (V/F) ) #U) 
Un test de division par 30 FOR A=1 TO 30: READ M: ON —(N=M)-(N/M=INT (N/M) ) 
DS. CREER et Le ? GOTO 100,9G:NEXT A 
les trente plus petits nombres premiers pe et ne W:P=1:B=(N-1)/2:1F A=3 AND N< 
: ME SQ C=INT(B/2):1F R>2#C THEN P=FNZ(P) 
a été ajouté pour éliminer &@ IF C THEN B=C:W=FNZ (W) : GOTO 50 
te RS TU ST SE | 70 IF F>1 THEN 100 
80 NEXT A:FOR A=1 TO 8:READ M:ON —(N=M) GOTO 100:N 
en quelques secondes |" 
90 PRINT'Premier ": END 


la majorité des nombres composés, 100 FRINT "Composé" : END 


110 DATA 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47, 


53,59,61,67,71,73,79,83,89,97 
120 DATA 101,103,107,109,113,4,9,25,26326001,16130 
4001 ,960946321 
Pierre Barnouin 130 DATA 1157839381,2219031751,3697278427,57646435 


87,6770862567 
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eux informations et une 
fonction suffisent : 
- La dimension, de 1 à 100, défi- 
nit l'échelle du tracé. 
- Le quadrillage, de 1 à 20,7% 
« habille » la courbe en définis- 
sant sa trame. 
- La fonction, Z=f (X, Y}, est à 
implanter en ligne 440. A vos 
courbes gauches préférées 
maintenant | 
Michel Chaduteau mi 


À 





Le 


GRAPH 3 DIM 





L LJ Lu e e f e 
Fini l'enfer du 2D ! La 3° dimension va maintenant donner un peu d'épaisseur | 

4 4 L 
à vos courbes naguère planes, | 

10 240 REM -LINE (X,Y) : trace une droite depuis le € 

20 Michel CHADUTEAU entre 

30 250 REM de l'écran (en (162,100) car basse résolut 

40 GRAFH 3D ion) 

50 268 REM jusau'au point de coordonnées X,Y 

60 27Q LINE —-(K#(X+Y#xS)+X0,K#(Z+YxS) +Y@) 

7@ XI=-1: XS=1:YI=-1:YS=1 288 T=I1:NEXT Y 

80 X2=160:YO=75 290 T=0 

30 INFUT"Dimensions max 100 ";K 300 NEXT X 

108 INFUT"Quadrillage max 20 ";F 310 T=Q 

11@ CLS 3520 FOR Y=Y1 TO YS STEP 2/F 

120 IF F=@ THEN RUN 330 FOR X=XI TO XS STEF 2/P 

130 S=,8 34Q GOSUE 44@ 

140 REM Passage en mode graphique 350 IF T THEN 380 

150 REM basse résolution 200*320 360 PSET (K#(X+YXS)+X0,K%(CZ+YXS) +Y@) 

16@ SCREEN 1 37@ GOTO 390Q 

170 FOR X=XI TO XS STEF 2/P 380 LINE -(K#(X+Y#S) +X0,K%(Z+Y#S) +Y@) 

18Q FOR Y=YI TO YS STEF 2/F 39Q T=1:NEXT X 

19G GOSUK 449 400 T=@ 

200 IF T THEN 270 41@ NEXT Y 

210 REM PSET (X,Y) : allume le point de coordonnée 42@ INFUT A:GOTO 90@ 

s X,Y 430 REM Fonction à tracer : Z=f(X,Y) 

220 PSET (Kk(X+Y#S)+X0,K%(Z+Y#S)+VD) AA4D Z=XkXKkY#Y 


230 GOTO 280 


45Q RETURN 
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RGUMENTIQUE 


Vous vous demandez où les brillants jeunes cadres du marketing 
et les gens que l’on interviewe vont chercher leurs belles phrases ? 
On vous demande de faire une déclaration et vous ne savez pas quoi dire ? 















HOMME DEN DE DE DE MED DH HE DE UEHEDÉHEHÉCMOME DE OH END NE 






C e programme est la solution RS 

















car il a la possibilité de faire 110 REM * à 
à votre place une déclaration Fe ne OÙ COMENTNE RIEN.DIRE, MAIS. BIEN + 
péremptoire sur la situation quelle sf nf Lo È 
qu'elle soit. 160 REM * FRANCOIS J. BAYARD * 
Peut-être votre auditoire ou votre 44 pis PRET REIN RER 
patron ne comprendront-ils pas 200 LEu79: REM LARGEUR DE VOTRE ECRAN -1 
totalement ce que vous avez 210 CLS 
voulu dire. Mais que cela ne vous | 220 RE e--mmcmmuccses 
effraie pas : ils se feraient couper RE RE 
en petits morceaux plutôt que de 260 REM 






270 DIM NM$(32) ,NF$ (47) ,C0# (24) ,AM$ (38) ,AF# (58) ,VE 

(29) ,AVS# (23) 

280 REM SI VOUS RAJOUTEZ DES DATA, FAITES DONC RUN 
1880 

290 REM AU LIEU DE VOUS AMUSER À LES COMPTER VOUS- 

MEME ! 

300 FRINT CL$ 

310 REM ICI VOUS FAITES UN FETIT BLABLA DE PRESENT 

ATION À VOTRE FACON... 

320 FRINT"'VEUILLEZ PATIENTER...":B#=" " 

330 NM=0 

34Q NM=NM+1:READ NM$(NM):1F NM#$(NM)<2>"#" THEN 340 

350 NM=NM-1: NF=0 

360 NF=NF+12READ NF#(NF):1F NF$#(NF)<2>"#" THEN 360 
370 NF=NF-1:C0=0 

380 CO=CO+1:READ CO#$(CO):1F CO$(CO)<>"x" THEN 380 
390 CO=C0-1:AM=0 

400 AM=AM+1:READ AM$(CAM):1F AM$(AM)<2>"#" THEN 402 
410 AM=AM-11AF=0 

420 AF=AF+1:READ AF#(AF)21F AF#(AF)<2>"#" THEN 420 
43Q AF=AF-1:VE=0 

440 VE=VE+1:READ VE$(VE)21F VE#(VE)<>"*«" THEN 440 
450 VE=VE-1:AV=Q 

460 AV=AV+1:READ AV#(AV):1IF AV#(AV)<>"#" THEN 460 





l'avouer ! 
François-Jean Bayard M 


























47Q AV=AV-1 
480 REM 
490 REM ======2==22=2222ex 





500 REM CHOIX ALEATOIRES 

510 REM ======ssee=z22== 

520 REM 

530 XA=INT (RND(1)#NF+1) 

540 XB=INT(RND(1)#AF+1) 

550 XC=INT (RND (1) #CO+1) 

56Q XD=INT(RND(1)#NF+1):1F XD=XA THEN 560 

570 XE=INT (RND(1)#AF+1):1F XE=XB THEN 570 

580 XF=INT (RND(1)#VE+1) 

590 XG=INT (RND (1) #AV+1) 

608 XH=INT (RND (1) #NM+1) 

61Q XI=INT(RND(1)#AM+1):1F XI=XB OR XI=XE THEN 619 
629 XJ=INT (RND(1)#NF+1):1F XJ=XA OR XJ=XD THEN 620 
630 XK=INT (RND{1)#AF+1)51F XK=XB OR XK=XE OR XK=XI 





















THEN 630 
64Q XL=INT(RND(1)#CO+1):1F XL=XC THEN 649 
650 REM 
660 REM ==sesseenensesmmamamaxm2 
670 REM CONSTITUTION DU MESSAGE 
680 REM ===2====2======2=22e==22= 
670 REM 
708 C#$="DANS LA PERSPECTIVE D'UNE “+NF#(XA)+B$+AFS$ 
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ARGUMENTIQUE 





(XB)+B#+C0$(XC)+", UNE " 
710 C#=C$+NF#$ (XD) +B$+AF#$(XEJ7+" CONSISTERA À "+VE#( 
XF) +B#+AV#S(XG)+" NOTRE " 
720 C$=C#+NM# (XH) +E#+AM$(X1)+" COMME UNE "+NF#$(XJ) 
+B$+AF$ (XK) +B$+C0$ (XL) +1," 
730 REM 
74Q REM ==s=zsszes2ssemamxammimam mi mem DESSERT EE 
750 REM FORMATAGE ET AFFICHAGE DU MESSAGE 
768 REM (SONT-CE LA LES MAMMELLES DE QUELQU'UN 7) 
770 REM =emmasess2sasseneeseeee2eseenmeneenmEnEEE 
780 REM 
79 PRINT CL# 
800 IF LEN(C#)<=LE THEN PRINT C#:PRINT: GOSUB 92@:6G 
OTO S3a 
819 D#=LEFT$(C#,LE) 
820 FOR I=LE TO 1 STEP -1 
830 1F MID#(D$,1,1)=EB$ THEN 850 
84@ NEXT I 
850 D$=LEFT$(C#,1-1):PRINT D$ 
860 C$=MID#(C#,1+1):G0T0 800 

. 870 REM 
680 REM ====zs=sssezs 
890 REM TOURNE-PAGE 
900 REM ====zsezszs 
910 REM 
920 PFRINT:PRINT TAB(LE-14) "FRAPPEZ RETURN“ 
930 FRINT TAB(LE-15) "OU F POUR FINIR" 
940 R$=INKEYS: XX=RND(1):1F R$<DCHRS (13) AND R#<ÇD'"F 
" THEN 940 
950 REM 
960 IF R$="F" THEN FRINT CL$#:END 
97@ RETURN 
980 REM 
990 REM HR ENMÉEREMMEES ES 
1008 REM NOMS MASCULINS 
1010 REM ===neoseuesemez 
1920 REM 
19030 DATA CRITERE , MARKETING, ESPACE , FUTUR, LEADERSHI 
F,RECUEIL,ECLATEMENT , PROF IL 
1048 DATA PROCESSUS ,FOTENTIEL,SUIVI,FACTEUR-CLE ,HI 
STORIQUE , ENVIRONNEMENT 
1950 DATA FLUX ,RECUEIL ,ECLATEMENT , REDEPFLOIEMENT , IM 
PACT , HORIZON, COMPORTEMENT 
19068 DATA SEMINAIRE ,FROSPECT , SEGMENT ,MEDIA , ARGUMEN 
TAÏRE , SOUT IEN,REFERENT 
107Q DATA CORPS DE FRINCIFE, CONTRAGE , RECENTRAGE 
1080 
1a90 
110Q 
111@ 
112Q 
1130 
114@ DATA OFTION,FLEXIBILITE,CAPACITE,MOBILITE,FRO 
GRAMMATION, BANQUE DE DONNEES 
1150 DATA PHASE , PROJECTION ,EVENTUALITE ,UNICITE,SFE 
CIFICITE,PRISE DE RISQUES 
1160 DATA FORMULATION,ETHIQUE ,GRILLE ,CREATIVITE ,MO 
BILISATION, PROBLEMATIQUE 
117@ DATA IMAGE DE MARQUE ,STRATEGIE ,COMFETENCE ,HYFP 
OTHESE ,F INALITE , FROMOTION 
1180 DATA COHERENCE , CONTRAINTE , ADEQUATION, PROLIFER 
ATION, VOCATION, CORRELATION 
1190 DATA FENETRATION, IMPLANTATION,CHARTE , INGENIER 
LE, COMPLEXITE , APPROCHE 
1200 DATA PROSPECTION,ELARORATION, APPROCHE ,PLATE-F 
ORME , POLITIQUE, LOGISTIQUE 
121Q DATA TECHNOLOGIE ,RADIOGRAFHIE ,FORCE/FAIBLESSE 
:MAITRISE 
122@ DATA *# 
1230 REM 
1240 REM 
1250 REM COMPLEMENTS 
1260 REM ===sesespese 
127Q REM 
1280 DATA DE GESTION,D'ORGANISATION,DE QUALITE,DE 
MESURE , D'INNOVATION ,DE DEFI 
129Q DATA DE TRANSITION,DE LA TROISIEME GENERATION 
HAUT DE GAMME,DE SUIVEUR 
150G DATA À CONSONANCE INTERSTELLAIRE,DU SOFT COMM 
E DU HARD,DE COMMUNICATION 
131Q DATA D'ANALYSE,DU SECOND DEGRE,DE HAUTE TECHN 
ICITE,D'INTERIORISATION 
1320 DATA DU FIABLE ET DU NON-FIABLE,DE MAINTENANC 
E,DE FOINTE,DES MENTALITES 
1330 DATA DE HARCELEMENT,DE STRUCTURE 
1340 DATA +*# 
1350 REM 


1360 REM =sssssassseseozzez 
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1370 REM ADJECTIFS MASCULINS 

1380 REM ===ezsssesessensezs= 

1390 REM 

1400 DATA INTEGRE, TOTAL ,SYSTEMATISE , PARALLELE , FONC 
TIONNEL , SENSIBLE, FUSIBLE 

1410 DATA FACULTATIF, SYNCHRONE , COMPATIBLE ,EQUILIER 
E , INCONTOURNABLE , FOINTU 

1420 DATA INHIBANT ,ANALYTIQUE, SUBJECTIF, INTERIORIS 
E , PONCTUEL , METHODOLOGIQUE 5 

143Q DATA FONDERATEUR, COMPARATIF , STRUCTUREL , PERFOR 
MANT , RECIPROQUE , AFFERENT 

144Q DATA SELECTIF,EXCLUSIF, INTERNE, QUANTITATIF ,QU 
ALITATIF,DIFFERENCIE 

1450 DATA DIFFERE, FERSUASIF , PERMUTABLE , OFERATIONNE 
L,EURISTIQUE , CONTROLE 

1460 DATA * 

1470 REM 

1480 REM mennmpsss=ssssszene 

1490 REM ADJECTIFS FEMININS 

1500 REM =======22szusesmmem 

1510 REM 

152Q DATA INTEGREE, TOTALE ,SYSTEMATISEE ,FARALLELE ,F 
ONCTIONNELLE , SENSIBLE ,FUSIBLE 

1530 DATA FACULTATIF, SYNCHRONE , COMPATIBLE ,EQUILIBR 
EE, INCONTOURNABLE , POINTUE 

154@ DATA INHIBANTE ,ANALYTIQUE , SUBJECTIVE, INTERIOR 
ISEE , FONCTUELLE , METHODOLOGIQUE 

1550 DATA PONDERATRICE , COMPARATIVE , STRUCTURELLE ,PE 
RFORMANTE ,RECIPROQUE , AFFERENTE 3 

1560 DATA SELECTIVE ,EXCLUSIVE, INTERNE ,QUANTITATIVE 
» QUALITATIVE,DIFFERENCIEE 

1570 DATA DIFFEREE ,PERSUASIVE , FERMUTABLE , OPERATION 
NELLE ,EURISTIQUE , CONTROLEE 

1580 

1590 

1600 

1610 

1620 

1830 

1640 DATA CERNER,DYNAMISER,MAITRISER, CONSTITUER,S° 
APPUYER SUR ,DEVELOFPFER 

1650 DATA ENGLOBER,METTRE EN EQUATIONS , ENGLOBER ,PE 
NSER , IMPLIQUER, STIMULER 

1662 DATA MOBILISER, COMMUNIQUER, RECONSIDERER, CIBLE 
R,FIDELISER , CONDITIONNER 

167@ DATA METTRE EN OEUVRE , CONCEPTUALISER, PRESCRIR 
E ,VENTILER, IMPLIQUER 

168Q DATA IMPFLANTER,ASSUMER, CIRCONSCRIRE, INSTITUTI 
ONNALISER , DIMENSIONNER 

1690 

1700 

171@ 

1720 

1730 

1740 

1750 DATA GRAFHIQUEMENT ,GLOBRALEMENT,"A COURT, MOYE 
N ET LONG TERME" 

176@ DATA COMFENDIEUSEMENT ,DANS LE DETAIL ,CREATIVE 
MENT , GRAPHIQUEMENT 

177Q DATA CLINIQUEMENT,FAR IDEE DANS L'IDEE,AU NIV 
EAU DU VECU 

178Q DATA MATHEMATIQUEMENT ,GEOMETRIQUEMENT , ALEATOI 
REMENT , OBJECTIVEMENT 

1790 DATA SENSIBLEMENT , HUMAINEMENT , FONDAMENTALEMEN 
T,DEONTOLOGIQUEMENT 

1809 DATA TYPOLOGIQUEMENT , PERSUASIVEMENT , POTENTIEL 
LEMENT , SPECIF IQUEMENT 

1810 DATA * 

1829 STOP 

1830 REM 

18640 REM =as=ameznsezsezzxze 

1850 REM COMPTEUR DE DATA 

1860 REM ==zmessesepmæenmmx 

1870 REM 

1880 GOSUE 198G:PRINT N,'"'NOMS MASCULINS" 

1890 GOSUB 1980:PRINT N,"NOMS FEMININS" 

1900 GOSUE 1980:PRINT N,"COMPLEMENTS" 

1910 GOSUB 1988:PRINT N,"ADJECTIFS MASCULINS" 

1920 GOSUB 1980: PRINT N,"ADJECTIFS FEMININS" 

1930 GOSUB 1980:PRINT N,"VERBES" 

1940 GOSUR 198@:PRINT N,'"ADVERBES" 

1950 PFRINT"'MODIFIER LES TABLEAUX S'°IL Y A LIEU" 
1960 PRINT:LIST 270 

197@ STOFP 

1980 N=@ 

199@ READ Dé:1F D#<>"#" THEN N=N+1:GO0TO 199 

2000 N=N+1 

2010 RETURN 











LA MACAINE 
TRANSPOSER 


Ce programme évitera:à nos amis mélomanes le travail fastidieux 


de transposition de notes ou au guitariste amateur 
celui de « mettre » les accords d’une chanson à sa voix. 





Frédéric Aulas 


19 CLS:PRINT "TRANSNOTE": PRINT: PRINT'LA MACHINE À 
TRANSPOSER":FOR 1=1 TO 2O0G:NEXT I 
20 CLS:P=D:REM TRANSNOT, CREE PAR FREDERIC AULAS 
30 FRINT "Quel est le nom de la note":PRINT'"'ou de 
l'accord à transposer ?7":PRINT:PRINT"'EXx : DO ; Ex 
: DO# (pas de bémol)":PRINT:PRINT'"Attention : SOL 
s'écrit S0" 
40 INPUT AC$ 
50 FRINT'"'De combien de 1/2 tons voulez-vous augmen 
ter la note 7? (MAX : 12)" 
68 INPUT T:1F T>12 THEN PRINT"'DEBILE ! ...12+1/2 t 
onsun octave !":FOR I=1 TO 2O00:NEXT I1:G60T0 19 
70 IF F=Q THEN 90 
80 FRINT "Quel est le nom de la note ou de l'accor 
d suivant 7":INPUT AC$ 
90 READ A$,B:CLS:P=i 
100 IF AH<>AC$ THEN 9@:GO0OTO 11@ 7 
11@ D=B+T:PRINT A#$:1F D>12 THEN D=D-12 
120 READ Ef,C 
130 1F C<>D THEN 12@:G0T0 14@ 
140 PRINT:PRINT:PRINT E# 
150 GOTO 80 
168 DATA DO,1,D0#,2,RE,S,RE#,4,M1,5,FA,6,FA#,7,S0, 
8,50#,9,LA, 18; LA#, 11, SI, 12 
170 DATA DO, 1,D0#,2, RE, 3 .RE*#,4,M1,5,FA,6,FA#,7,S0, 
8,50#,9,LA,10,LA#,11,81,12 
180 DATA DO,1,D0#,2,RE,3,RE#,4,M1,5,FA,6,FA#,7,S0, 
8,50#,9,LA,10,LA#,11,S1,12 
198 DATA D0,1,D0#,2,RE,3,RE#,4,MI1,5,FA,6,FA#,7,S0, 
8,50#,9,LA,10,LA#,11,S1,12 
208 DATA DO,1,D00#,2,RE,3,RE#,4,MI1,5,FA,6,FA#,7,S0, 
8,50#,9,LA,10,LA#,11,81,12 
210 DATA D0O,1,D0#,2,RE,3,RE#,4,M1,5,FA,6,FA#,7,S0, 
8,S0#,9,L4,10,LA#,11,S1,12 
220 DATA DO,1,D0#,2,RE,S,RE#,4,MI1,5,FA,6,FA#,7,S0, 
8,S0#,9,LA,10,LA#,11,S1,12 
230 DATA DO,1,D0#,2,RE,3,RE#,4,MI1,5,FA,6,FA#,7,S0, 
8,50#,9,LA, 10, LA#, 11, si, 12 
240 DATA DO, 1,D0#,2, RE, 3,RE#,4, MI,5,FA, 6,FA#,7,S50, 
8: S0#,9,LA, 10, LA#, 11, SI, 12 

50 DATA DO, 1,D0#,2, RE, s, RE#,4,M1,5,FA,6,FA#,7,50, 
8, S0#,9,LA, 10, LA#, 11, S1, 12 
260 DATA DO, 1,D0#,2, RE, 3, RE#,4 MI,5,FA, 6,FA#,7,S0, 
8,S0#,9,LA, ia, LA#, 11, SI, 12 
270 DATA DO,1,D0#,2,RE,3,RE4,4,MI1,5,FA,6,FA#,7,80, 
8,50#,9,LA,10,LA#,11,S1,12 
280 DATA DO,1,D0#,2,RE,3,RE#,4,M1,5,FA,6,FA#,7,50, 
8,50#,9,LA,10,LA#,11,SI,12 
290 DATA DO,1,D0#,2,RE,3,RE#,4,MI1,5,FA,6,FA#,7,S0, 
8,50#,9,LA,10,LA#,11,S1,12 
300 DATA DO,1,D0#,2,RE,S,RE#,4,MI1,5,FA,6,FA#,7,S0, 
8,S0#,9,LA,10,LA#,11,S1,12 
310 DATA D0O,1,D0#,2,RE,S,RE#,4,MI1,5,FA,6,FA#,7,S50, 
8,S0#,9,L4,10,LA#,11,S1,12 _. 
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SOYONS NETTEMENT PRECIS 
POUR 
FAIRE DE LA PHOTO 


Pour les fanatiques du zoom et les amateurs d’instantanés, voici le moyen radical 
d'éviter le flou, sauf en cas de chef-d'œuvre prémédité... 
A partir de format, focale, diaphragme et distance de mise au point, 
le programme donne _la profondeur de champ, de manière à vous guider pour 
Ia « construction d’une immortalisation » 


ou pour le choix d’un objectif, selon les différents formats. 
Albert Roux H 














Spécial progrramme 0O.I. 140 REM en fonction de la distance 


150 REM de mise au point 


169 REM et affiche 1'hyperfocale 
17Q REM 

199 REM 

19Q CLS 

2900 FRINT'"'Le format de l'appareil s "; 
219 PRINT TAB(24)"D pour 24%x36" 

220 PRINT TAB(24)"1 pour 4.5*6" 

230 PRINT TAB(24)"2 pour 6*6" 

240 PRINT TAB(24)"3 pour 9*x12" 

250 PRINT:PRINT TAB(22) 3: INPUT C 

26 1F C>3 THEN 190 


Roux Albert 


130 REM Détermine la zone de netteté 









Peu de choses à vous dire 
sur ce Mastermind de poche, si ce n'est 
qu’il faut découvrir 

une combinaison 

de cinq chiffres de 0 à 9 
en moins de douze coups. 
Les sorties sont de la forme noire puis blanche, Voilà, c'est tout ! 
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400 PRINT: INPUT'"'Le diaphragme :";N 

410 FRINT: INPUT" Distance sujet :"3:3D 

420 

450 Hyperfocale 

440 

450 HY=F#F/(CE*N) /1000: YH=INT (HY*10@) /1@+. 1 

4840 REM 

47Q REM Net à l'avant 

480 REM mn" 1 Rss 

490 AV=HY#D/ (HY+D) 

9500 REM 

510 REM Net à l'arrière 

520 REM 

530 RA=HY*D/ (HY-D) : AR=INT (RA*100) / 100: AR$=STRS (AR) 

rm? 

540 IF AR<D THEN AR$=" L'infini" 

550 PFRINT:FRINT: PRINT" Pour une mise au point s 

ur ”"3D;" om." 

560 FRINT'l1a zone de netteté s'étend de :" 

570 PRINT:PRINT TAB(6) ; INT (AV#1@0) /10@;" m."s;" à 
"sAR# 

580 REM 

590 KEM ---- Affiche hyperfocale 

600 IF INT(D#*1G)=INT(YHx1Q) THEN 650 

610 FRINT:FRINT'Pour une zone de netteté max. s'ét 

endant à l'infini :" 

620 FRINT" l'hyperfocale se situe à ";YHs;" m." 

630 PRINT:PRINT" La netteté s'étend alors de 

640 PRINT TAB(12);YH/25" m. à l'Infini" 

65@ PRINT:PRINT:END 

662 REM Tolérance du cercle de diffusion 

67@ REM 

680 DATA .0335,.05,.075,.1 


REM 

ON C GOTO 3920,310,320 

CE$=" 24x36": GO0OTO 330 
CE$="4.5#6":GO0OTO 330 

CE$=" 6x6": GOTO 330 

CE$=" 9*+12" 

PRINT "Pour un format ";CE$ 
FOR 1=Q TO C 

READ CE 

NEXT 1 

PRINT "C" 

FRINT "Pour un format de ";CE# 
PRINT:INPUT “ La focale :";F 





108 REM ! : entier simple précision 

110 B$=RIGHT$# (STR# (INT (100000 ! # (1+RND(1)))),5) :K=Q 
:PRINT'MASTERMIND : 5 chiffres SVP ?" 

120 C$=B#:K=K+1:M=Q:FOR I1=1 TO 5 

130 A$(I)=INKEY#:1F AF(I1)="" THEN 130 

140 PRINT A$(I)3;321F A$(I1)=MID$S(C$,1,1) THEN J=1:60 
SUB 200 

150 NEXT I:1F M=5 THEN FRINT" ERAVO, gagné en":K; 
“coups":GOTO 110 

160 REM INSTR(A#,B$) : recherche la ière occurence 
de B+t dans A$ 

170 REM et retourne la position où la correspondan 
ce est trouvée 

180 PRINT M;:M=@:FOR I1=zi TO S:J=INSTR(CS,A#(I)):1F 
J THEN GOSUER 200 

190 NEXT I:PRINT M,: IF K=12 THEN PRINT "PERDU, c 
était :";:B#:G0OT0 110Q ELSE 120 Ï 

200 M=M+1:A$(1)="/":MID#(C#,J)="#"3: RETURN pes | 





Pierre Barnouin& 
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DES CHIFFRES ET 





Petit programme d'enseignement assisté 


DES NOMBRES 


ar ordinateur (EAO) pour l'apprentissage 


des chiffres el des nombres, 


1 “SAVE "NOMBRE. BAS 
10 ‘ 


30 DEFFNT$ (A$, 1) =A$+STRINGS (25-LEN(A$) ,46) +STR$# (1) 
+CHR$ (10) 

FOR 1=5 TO 24 

LOCATE 1,8:PRINT"#";:LOCATE 1,14: PRINT"#"; 

NEXT 

FOR 1=8 TO 14 

LOCATE 5,1:PRINT"#":LOCATE 24,1:PRINT"#" 

NEXT 
199 LOCATE 7,11:PRINT"GRANDS NOMBRES 1" 
119 FORI=1 TO SOU: NEXT 
120 LOCATE 8,29: PRINT"LESPACEJ,$VP. ..":BEEP 
130 IF INKEY#="" THEN 130 Fe 
140 DIMCF$ (15) ,CH$ (15) 
150 1=1 
168 READ CF#(1) 
170 IF CF#$(I)="#" THEN 210 
189 1I=1+1:G0T0 160 
190 DATA UNITES,DIZAINES , CENTAINES ,MILLE,DIZAINES 
DE MILLE,CENTAINES DE MILLE ,MILLIONS 
200 DATA DIZAINES DE MILLIONS ,CENTAINES DE MILLION 
S,MILLIARDS,DIZAINES DE MILLIARDS,CENTAINES DE MIL 
LIARDS , # 
210 CLS:0=0:E5=0: A$="": A1$=" "3: MESS (1) ="": MESS$ (2) =" 
220 LOCATE 3,2:PRINT"JE VAIS TE POSER VINGT",,," 
QUESTIONS SUR UN NOMBRE. " 
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238 LOCATE 5,9:PRINT"VEUX-TU JOUER ?":PRINT:PRINTF 
NT$("SEUL",1) :PRINTFNT#$ ("A DEUX",2) 

240 C#=INKEY#$: IF Cf="" THEN 240 

250 CH=VAL(C#):1F CH<1 OR CH>2 THEN 2409 

26@ IF CH=1 THEN PRINT: PRINT"'QUEL EST TON NOM ?":P 
RINT:LINE INPUT NOMS (1) : NOM$ (2) =NOM# (1) : GOTO 290 
270 PRINT:PRINT'NOM DU PREMIER JOUEUR ? ":PRINT:LI 
NE INPUT NOM$#(1) 

280 PRINT:PRINT"'NOM DU DEUXIEME JOUEUR ? ":PRINT:L 
INE INPUT NOM$ (2) 

290 ‘ 

308 CLS 

319 LOCATE G,9:PRINT"'MON NOMBRE DEVRA ETRE COMPRIS 
“,1"ENTRE CENT ET“:PRINT 

326 PRINTFNT#("MILLE",@) 

330 PRINTFNT#("DIX MILLE",1) 

349 PRINTFNT#("CENT MILLE",2) 

350 PRINTFNT#("UN MILLION",ZS 

360 PRINTENT#("DIX MILLIONS",4) 

370 PRINTFNT$("CENT MILLIONS",5) 

380 PRINTFNT#("UN MILLIARD" ,6) 

390 PRINTFNT$ ("DIX MILLIARDS",7) 

400 PRINTFNT#("CENT MILLIARDS",8) 

410 PRINTENT#("MILLE MILLIARDS !",9); 

420 C$=INKEYS#:1IF C#="" THEN 420 

450 IF ASC(C#)<48 OR ASC(C#) 257 THEN 420 

440 C=VAL(C#)+2:CLS:N=RND (-TIME) 

45@ A=INT(RND(1)#1@"(C+1)):1F A<1@"(C) THEN 450 
460 N$=STR$ (A) : GOSUB 13350: A$=N1$ 

47@ FOR 1=2 TO LEN(N#):A1#=MID#(N$,1,1)+A1#:NEXT I 
: V=LEN(A1#) : X=0 

480 ‘ 

CORRECTE 


MES$(1)="ECRIS MON NOMBRE CORRECTEMENT " 
MES+$(2)="(TRANCHES DE TROIS CHIFFRES)" 
S$=A$:GOSUB 1140 


MES$(1)="QUEL EST LE NOMBRE QUI VIENT" 
MES$(2)="JUSTE AVANT MON NOMBRE" 
N#=STR$ (A—-1) : GOSUB 1330 

S$=N1$:GOSUB 1149 


MES#(2)="JUSTE APRES MON NOMBRE‘ 
N$=STR$ (A+1) : GOSUB 1330 
S$=N1$:GOSUB 1149 


FOR H=1 TO 3 

‘———-CHIFFRE DES.... 
MES$(1)="QUEL EST LE CHIFFRE" 
CL=1:IF H=i THEN GOSUB 141@ 
GOSUB 1460 

MES#$(2)="DES "+CF#$(X) 
S+=CH$(X) : GOSUB 1140 
’——--NOMBRE DES. .... 








700 MES$(1)="QUEL EST LE NOMBRE" 

718 B=INT(A/12"(X-1)):N#$=STR$ (B) : GOSUB 133@ 
720 S$=N1$:GOSUB 1149 

730 NEXT H 


X=G:MES$(1)="CALCULE “+A$ 

CL=2 

GOSUB 141@ 

FOR H=1 TO S:G60SUB 1469 

IF V-1<H THEN GOSUB 1419:GO0SUB 1460 

B=INT (RND(1)#9)+1:B=B#VAL(CH#(X)):1F B>A THEN 


N$=STRS# (B) : GOSUB 1330 

D=RND (1) 

IF D<.5 THEN MES$(2)=" —"+STRING$# (LEN (A 
$)—-LEN(N1$) ,32) +N1#$#:N$=STR$ (A-B) :GO0T0 850 
840 IF D>.5 THEN MES#$(2)=" +"+STRING# (LEN(A 
#)-LEN(N1#) ,32) +N1#:N$=STR$ (A+B) 
850 GOSUB 1350 
86@ S$=N1$:GOSUR 1148 


890 MES$(1)="COMPLETE AVEC < OÙ > +CSHIFTJ" 

700 FOR H=1 TO 6 

910 B=INT(RND(1)#1@"(C+1)):1F B=A THEN 918 

9720 N$=STR$ (B) : GOSUB 1350 

950 IF LEN(A$)<13S THEN MES$(2)=A$+" "+N1$ ELSE M 
ES$ (2) =A$+CHRS$ (19) +STRINGS# (4Q-LEN(AS#) ,32)+N1$ 

940 IF A<B THEN S#$="< "+N1# ELSE S$="> "+N1$ 

950 GOSUB 1140 

768 NEXT H 


980 CLS 
990 IF CH=1 THEN LOCATE 2,3:PRINTNOM#(1) ELSE LOCA 
TE 2,3:PRINTNOM#(1)5;" ET “; NOM$ (2) 
1000 LOCATEO,S:1F CH=1 THEN PRINT"'VOICI TES RESULT 
ATS :" ELSE PRINT"VOICI VOS RESULTATS :" 
101G LOCATEG,8: PRINT"'ESSAIS 3"; 
1020 PRINTE 
1950 PRINT:PRINT" SCORE :";SC 
1040 M=INT (SC*209/E) /10 
1058 PRINT:PRINT"MOYENNE: ";M;*/2@" 
1060 SC=0:E=0 
LOCATE 2,21:PRINT"ON REJQUE ? (O/N) 
C$=INPUTS# (1) 
IF C#$<>"N" ANDC#$<2>"n" THEN GOTO 219 


1110 CLS: BEEP 
1129 LOCATE 9,11:PRINT"'A BIENTOT" 






le tout micro !!! 


Crayons optiques 
BIBLIOGRAPHIE : P.S.I., Editions Radio, Micro-Application 


| 
Logiciels jeux, éducatifs, utilitaires | PRENOM 
ES NE FER EPA M OR SP | ADRESSE 
sur MINITEL composez le 06-2000 » envoi 
NOUVEA UI rubrique : Centrales d'achat a ! CODE POSTAL 
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1130 END 
1140 ‘ 
UESTIONS/REPONSES 


G=Q+1:G0SUB 1270 
LOCATE @,3:PRINTMESS$ (1) 
IF G<15 THEN LOCATE 0,5: PRINTMESS$ (2) : Z=9:Y=9: 
1190 
LOCATE 2,8: PRINTMES$ (2): 1F LEN(A$)>13 THEN Z= 
11:Y=10 ELSE Z=LEN(A#) +5: Y=8 
1190 E=E+1:LOCATE Z,Y:LINE INPUT R$ 
1200 IF R$<>S$ THEN ES=ES+1:BEEP:1F ES>2 THEN LOCA 
TED,12:PRINT"REPONSE: ";:S#$:GO0T0 1230 ELSE GOTO 119 


SC=SC+1 

LOCATE @,12:PRINT"REPONSE EXACTE !":BEEF 
LOCATE 2,16:PRINT"CESPACE],SVP.,," 

IF INKEY$<>" " THEN 1248 


1280 LOCATE 7,2@:PRINT"VOICI MON NOMBRE" 

1290 LOCATE 9,23:1F @G=1 THEN PRINT N$+CHR$#(11) ELS 
E PRINT A$+CHR# (11) 

130G LOCATE 9,@:PRINTSPC(31):LOCATE @,0@ 

1310 IF GMOD2=1 THEN PRINTNOM$# (1) ",ATTENTION !" EL 
SE PRINTNOM$(2)",ATTENTION !"* 

1320 RETURN 

1330 ‘ 

UR AFFICHAGE NOMBRES 


N=Q:N1$="" 

FOR I=LEN(N$) TO 2 STEP-1 
IF N=3 THEN N1$=" "4N1#: N=0 
N1$=MIDS (NS, 1,1)+N1$ 


1420 IF CL=1 THEN FOR 1=V TO 1 STEP -1:CH#$(1)=MID# 
(A1$,1,1):G0T0 1440 

1450 FOR 1=1 TO V:CH#(I1)=STR$ (1#1@"(I-1)) 

144@ NEXT 1 

145@ RETURN 

1468 

EATOIRE 


CH#(X)="#" 

X=INT (RND (1) #V) +1 

IF CH#(X)="#" THEN 14809 
1500 N$=CH$(X) :GOSUB 1330: ‘ TRANSFOR. 
1519 RETURN 


micro de Paris 
Je désire recevoir gratuitement et sans 
engagement de ma part votre documen- 
| tation sur la gamme : 
| O matériel UD logiciels et périphériques 


MATÉRIEL : AMSTRAD, APPLE, ATARI, COMMODORE, EXCELVISION, | Concernant le micro-ordinateur : _____ 
LANSAY, MSX, MATRA, SINCLAIR, THOMSON 


PÉRIPHÉRIQUES : Lecteurs de disquettes e Imprimantes e Modem e | 





| e à 
© Je possède un micro de marque: ____ 





| O Je ne possède pas de micro-ordinateur 
| NOM 


2° Je joins 3 timbres à 2,10 F pour frais d'envoi. 


SR 
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ÉLECTRO- 


PIONS. 


Sur un damier se trouvent 

des pions noirs et des pions blancs 
pouvant se déplacer suivant 
quatre directions : 

haut, bas, droite et gauche. 





Lorsque deux pions de même couleur se heurtent, leur couleur change et chaque pion 





repart dans la direction opposée. Ainsi, un pion noir allant vers le haut et heurtant 
un autre pion noir allant vers le bas deviendra blane et repartira vers le bas. 





Lorsque deux pions de couleurs différentes se heurtent, seules leurs directions 
changent mais pas leur couleur. Les pions rebondissent sur les bords du damier, 


râce à un aimant que l'on fait 
avancer d’une case à chaque 
tour, on peut faire varier la direc- 
tion des pions. En effet, lorsqu'un 
pion heurte l'aimant, sa couleur ne 
changera pas mais sa direction 
variera de 90° dans le sens con- 
traire des aiguilles d'une montre ; 
autrement dit, un pion venant de 
la droite et heurtant l’aimant repar- 
tira vers le haut. Le but du jeu est 
donc de faire en sorte que tous les 
pions du damier soient de la 
même couleur. 
Une fois le programme lancé, on 
choisit le jeu voulu et deux 
tableaux sont affichés ; celui de 
gauche donne la position et la 
couleur de chaque pion, celui de 
droite la direction de chaque pion 
(H pour Haut, B pour Bas, etc.), 
l'aimant étant représenté par une 
étoile. 
Après l'affichage du nombre de 
pions de chaque couleur, l'ordina- 
teur demande la direction à suivre 
pour l’aimant (H, B, D, G ou R si 
vous désirez le laisser sur place). 
Jean-François Boisson M 
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10 CLS 

20 PRINT:FRINT" 
30 PRINT:FRINT: PRINT: PRINT: PRINT 
40 FRINT"'Quel jeu voulez-vous 7" 

50 FRINT 

60 FRINT'"'i-di»x pions" 

70 FRINT"2-six pions" 

688 PRINT:INFPUT"Votre choix ":;C$ 

90 IF C#<>"1" AND C$<>"2" THEN 80 

1900 F=2*VAL(C#) 

110 PRINT:PRINT:PRINT"Un instant SVP !" 

1720 

170 K 

140 KR 

150 DIM T#(11,11),D#(11,11),X(19) ,Y (19) 

160 FOR 1=Q TO 11 

170 FOR J=@ TO 11 

180 T$(I,J)=" "eD#(I,J)=" " 

190 NEXT J:NEXT I 

200 FOR I1=0 TO 11 

210 T#F(@,1)="X":T$(1,0)="%X":D#(Q,1)="%":D#(1,0)="% 


Electro-pions" 


270 T#(11,1)="%"2 T$S(L,11)="X":D#(11,1)="%":D#(1,11 
)="7%" 

2730 NEXT I 

240 FOR 1=1 TO 19 STEF P 

250 T#(1,1)="N":T#(1,1+1)="N":D#(1,1)="B":D$(1,1+1 
}="B" 

260 T#(10,1)="B":T#(10,1+1)="B":D$(10,1)="H":D#(10 
s1+1)="H" 

27Q NEXT I 

280 T#(5,5)="#":D#(5,5)="x" 

290 N=14-2*%P:B=N 

300 XA=S:YA=S 

310 FOR 1=0 TO 9 

320 X(I1)=1:Y(I1)=1+1:X(1+10)=10:Y(I+10)=I+1 

330 

340 RE 

350 

360 

370 

380 

3970 








400 FOR J=Q TO 11 

410 PRINT T#(I,J)3;3 

420 NEXT J 

430 PRINT" …. 

440 FOR J=@ TO 11 

450 PRINT D#(I,J); 

468 NEXT J 

47@ FRINT 

480 NEXT I 

490 IF N=Q OR B=Q THEN PRINT:FRINT:PRINT'"'EBravo.,. 
Vous avez réussi !":END 


500 PRINT: PRINT:PRINT'"'Noirs :"53Ns" et blancs :";8 


540 PRINT: PRINT 

5950 INPUT'"Direction de l'aimant ":;D$ 
560 X=XA:Y=YA 

570 IF D$="H" THEN X=X-1:G0T0 650 

580 IF D$="E" THEN X=X+1:G0T0 630 

990 IF D$="D" THEN Y=Y+1:G0T0 6450 

60 IF D$#="G" THEN Y=Y-1:GO0TO 650 

610 IF D$="R" THEN 68@ 

&62@ GOTO 550 

6350 1F X<1 THEN X=1 

64Q IF X>1Q THEN X=10 

650 IF Y<i THEN Y=1 

66@ 1F Y>1Q THEN Y=10Q 

670 IF T#(X,Y)<>" " THEN 550 

68G TH(XA,YA)=" "aTH(X,Y)="#":D#(XA,YA)=" "is DS (X,Y 
J="#"s XA=X 3: YA=Y 

690 PRINT:PRINT:PRINT'"Un instant SVP !" 


74@ X=X(I1):Y=Y(I) 
750 IF D#(X,Y)="H" 
768 IF D#(X,Y)="p" X=X+1:G0T0 790 

770 IF D#(X,Y)="D" Y=Y+1:GO0T0 790 

780 IF D#(X,Y)="G" Y=Y-1 

790 IF T#(X,Y)="#" 860 

800 IF T#(X,Y)<>" " THEN 920 

810 TH(X,Y)=T#(X(I1) ,Y(I1)):D#(X,Y)=DH(X(I),Y(I)) 
820 T#(XCI) ,Y(I))=" "2:DS(X(I),Y(I))=" " 

830 X(I)=Xs5Y(1)=Y 

84Q NEXT 1! 

850 GOTO 340 

860 REM Changement de direction 

870 IF D#(X(1),Y(1))="H" THEN D#(X(1),Y(1))="D":G0 
TO 840 

880 IF D#(X(I1),Y(1))="B" THEN D#(X(I1),Y(I1))="G":60 
TO 840 

890 1F D#(X(1),Y(I1))="G" THEN D$(X(I),Y(1))="H":60 
TO 849 

900 IF D#(X(1),Y(I1))="D" THEN D$#(X(I1),Y(1))="E" 
910 GOTO 840 

920 REM Chang. de dir. et de couleur 

930 IF D$#(X(I),Y(1))="H" THEN D#(X(I),Y(1))="B"2:G0 
TO 970 

940 IF DF(X(I1),Y(1))="E" THEN D#(X(I1),Y(I1))="H":6G0 
TO 97@ 

950 IF D$(X(1),Y(I1))="D" THEN D#(X(I1),Y(1))="G":6G0 
TO 970 

960 IF D$(X(1),Y(1))="G" THEN D#(X(I),Y(1))="D" 


97Q IF THIX,Y)S2T#(X (1) ,Y(I1)) THEN 840 

780 IF T#(X,Y)="N" THEN T#(X,Y)="B":T#(X (I) ,Y(I))= 
"B'":B=B+2:N=N-2: GOTO 840 

970 THIX,Y)="N": TH(X (I) ,Y (1) )="N": E=B-2: N=N+2 

1000 GOTO 84@ 


X=X-1:GO0T0 790 








Pierre Barnouin& 





DONNES 





DE BRIDGE 


Cette routine vous rendra 
service pour l'écriture 
de votre futur programme de bridge, 
que vous ne m certainement 
pas de nous soumettre ! 
Les quatre jeux sont rangés par couleur 
et par valeur des cartes, 

















19 A$="ARDVX98765432": DIM N(S51):FOR 1=13 TO Si:N(I 
)=INT(I/13):NEXT 1 

20 FOR I=0 TO S1:K=I+INT((S1-1) XRND(1))eM=NÇ(I)aNCI 
)EN(K):N(K)E=MENEXT I 

30 IF H THEN B$=INKEY#:1F B$="" THEN 30 

40 REM CHR$(3) : coeur ; CHR$(4) : carreau 

50 REM CHR$(5) : trèfle ; CHR$(6) : pique 

60 CLS:FOR I=Q0 TO 3:FOR J=Q TQ 3:C$(J)=CHR$#(S+1):1N 
EXT J 

70 FOR K=O TO 12:J=N(13#1+K) :C#$(J)=C$(J)+MID#(AS,K 
+1,1):NEXT K 

80 PRINT:FOR H=Q TO 3:PFRINT TAB(H#15) C$(H)$seNEXT 
H:NEXT I:GO0TO 20@ | | 
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PILE FORTH 


Voilà, c'est fait ! La Pile est avee vous pour vous initier aux rudiments du 
langage Forth, si puissant, mais si déroutant, semble-til, pour les non-initiés. 








LE —_——————————.—_— "2" "0 ——————_—_—_— 


du vocabulaire de base. II attend une chaîne de commandes de cent caractères au plus 
et la pile elle-même ne peut contenir plus de cent éléments. 


L.° langage autorisé est donc 
composé des mots : 

S : affiche le contenu de la pile et 
son nombre d'éléments. 

VLIST : liste des mots disponibles. 
CLS : efface l'écran. 

DROP : supprime le sommet de la 
pile. 

SWAP : échange les deux élé- 
ments du sommet de la pile. 
DUP : recopie le sommet de la 
pile. 

ROT : permutation circulaire des 
trois derniers éléments. 

OVER : recopie l’avant-dernier 
élément. 

ROLL : idem ROT, mais à partir de 


, . REM 
Renan pointé par le sommet de D ur oc mono 
a plie. 30 REM 
PICK : écrase le sommet de la pile pe Rd LA M 
par l'élément pointé par le cn LÉ 
A te Per 
sommet. E oucle principale * 
.: affiche le sommet de la pile 10 NORTON CUESS se x 
puis désempile. (0 PEESES > 
. ï o 120 FOR J=i TO LEN(E#) 
a: permet la sortie du pra 130 IF MID$#(E#,J,1)=" " THEN GOSUB 180 ELSE 1#=1$+ 
gramme. MID$(E#,9,1) 
+—/* : opérations arithmétiques. tac: bp bi Dé 
Votre initiation au ÆForth peut 160 REM * Tests * 
H 179 KR 
désormais commencer... 180 IF 1$="." THEN GOSUB 440 
Eric Canovas 190 1#="S" THEN GOSUE 360 
200 1#="VLIST" THEN GOSUR 520 


210 I+="CLS" THEN CLS 


220. I$="DROF" THEN GOSUE 620 

230 1#="SWAF" THEN GOSUB 660 

240 1+="DUF" THEN GOSUE 710@ 

250 I1$="ROT" THEN GOSUB 750 

260 1$+="OVER" THEN GOSUB 790 

270 1$="ROLL" THEN GOSUB 830 

280 1#="PICK" THEN GOSURB 959 

290 I$="+" OR 1$5="-" OR 1#$="#x" OR 1#="/" THEN G 
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J e m'abonne pour | an 
(11 numéros) au prix de 
220 F° aulieu de 275F. 
Mon économie est de 55 Fsur 
le prix de vente au numéro. 
Ci-joint mon règlement indispensable par chèque 
libellé à l'ordre de L'Ordinateur Individuel. 


J e m'abonne pour 2 ans (22 numé- 
ros) au prix de 428 F° au lieu de 
550 F. Mon économie est de 122H 
sur le prix de vente au numéro. 
Ci-joint mon règlement indispensable par chèque 
libellé à l'ordre de L'Ordinateur Individuel. 

















Nom Prénom == Nom Prénom 

Adresse == OS 
Codé postal. - Ville Code postal Ville 

Je choisis le cadeau suivant (cocher la case) : OI77H5S Je choisis le cadeau suivant (cocher la case) : OI77H5 
- le numéro spécial 40 programmes I] - le numéro spécial 40 programmes 

- ou 2 numéros (à choisir page2) Q - ou 2 numéros (à choisir page2) (M, 

- oule cadeau-surprise ( - oule cadeau-surprise . 


* Ottre valable jusqu'au L*' septembre 1986. k A 

Tarif valable pour la France métropolitaine. Etudiant 175 F (justificatif indispen- 
sable). Etranger : BELGIQUE : Soumillion, 28, avenue Massenet, 1190 Bruxelles 
Versement à la Société Générale n° 2100405835-39. 1 995 FB, Etudiant 1 795 FB. 
SUISSE : 19, route du Grand-Mont, CH 1052, Le Mont-sur-Lausanne. Versement à la 
Caisse d'Epargne et de crédit n° 10-432-4, CH 1052 Le Mont, compte courant n° 650- 
156-7. 69,5 FS, Etudiant 55 FS. CANADA : LMPI. 9345, rue de Meaux, Saint-Léonard. 
Québec H1R3H3. 30 $C. Tout autre pays, par avion : 395 FF, Etudiant 353 FF, par 
voie de surface : 340 FF. Etudiant : 275 FF. 

* Etudiant: justificatif indispensable 


* Offre valable jusqu'au 1°" septembre 1986. 

Tarif valable pour la France métropolitaine. Etudiant 340 FF (justificatif indis- 
pensable). Etranger : SUISSE, 19, route du Grand-Mont. CH 1052, Le Mont-sur-Lau- 
sanne. Versement à la Caisse d'Epargne et de crédit n° 10-432-4, CH 1052. Le Mont. 
compte courant n° 650-156-7. 135 FS. Etudiant 105 FS. CANADA, LMPI. 9345, rue de 
Meaux. Saint-Léonard, Québec HIR3H3. 58 $C. Tout autre pays. par avion : 765 FF, 
Etudiant, 680 FF, par voie de surface : 650 FF, Etudiant : 525 FF. 

* Etudiant: justificatif indispensable 


Parrainez 2 amis 


Vous êtes abonné ou vous venez de vous abonner. 
ndiquez-nous l'adresse de 2 amis qui peuvent être 
intéressés par L'Ordinateur Individuel : 


Je choisis mon cadeau 


2anciens 


numéros = 
(voir page 2 ) Ex 





PREMIER AMI: 
Nom, prénom 
Adresse 
Code postal ___ Ville 








DEUXIEME AMI : 
Nom, prénom 


Adresse 
Code postal 7 Ville 


Directement de votre part, nous leur enverrons une 
proposition d'abonnement, et si l'un des deux 
s'abonne, vous recevrez un cadeau super-surprise. 
Votre adresse : (indispensable pour vous envoyer 
votre cadeau). 

Nom, prénom 
Adresse 
Code postal _______________ Ville 





ou 


Le cadeau- 
surprise 








ABONNEMENTS LECTEURS PRIVILEGIES 


Abonnement Abonnement 





lan : 2ans 
Û 
i 
PTT TT réservé 
; aux 


bonnes raisons À abonnés: 


de Ë 
vous abonner: - 


e Vous faites des économies ï 

e Vousrecevez 
L'ORDINATEUR INDIVIDUEL f 
en avant-première * 

e Tous les numéros 
parviennent à votre 
domicile 

e Prix ferme et définitif. 

e .. et en plus vous avez un 
cadeau 





ABONNEMENT AMIS 


Parrainez 2 amis 

et vous pourrez 
recevoir uncadeau 
super-surprise 

Voir conditions au verso de cette carte 








300 Af=1#$:1#="" 

310 IF VAL(A$)=D AND ASC(A$)<>48 THEN RETURN 
320 IF S=100 THEN FRINT'File pleine" ELSE S=S+1:F{ 
S) =VAL (A$) 

330 RETURN 

3540 REM 

350 REM- mot S 

360 IF S=Q THEN RETURN 

370 FOR 1=1 TO S 

380 PRINT P(I)3" "3 

390 NEXT !I 

409 PRINT"TOF : "36 

41@ RETURN 

420 REM 

43Q REM- mot . 

449 1F S>Q THEN 470 

450 FRINT"'Pile vide" 

460 RETURN 

47@ PRINT P(S)5;" TOP : " 

48Q S=S-1 

490 RETURN 

S00 REM 

510 REM- mot VLIST 

520 RESTORE 

530 FOR I=1 TO 12 

540 READ A# 

550 PRINT A$;" "3; 

S56@ NEXT I 

570 FRINT 

580 DATA S,VLIST,CLS,DROF ,SWAP,DUP ,ROT ,OVER, ROLL ,F 
ICK,.,G=FIN 

590 RETURN 

600 REM 

610 REM- mot DROF 

620 IF S=Q THEN FRINT"Pile vide" ELSE S=S-1 
6350 RETURN 

640 REM 

650 REM- mot SWAP 

660 IF S<2 THEN FRINT'Pas assez de données" ELSE S 
WAP F(S),P(S-1) 

67@ RETURN 

680 REM 





690 REM 


70 REM-— mot DUPF 
710 1F S=100 OR S=0 THEN PRINT'Impossible" ELSE S= 
S+1:P(S)=P(S-1) 


720 RETURN 

730 REM 

74Q REM- mot ROT 

750 IF S<3 THEN PRINT'"'PFas assez de données" ELSE A 
=P(S):P(S)=P(S-2):P(S-2) =P(S-1) :P(S-1) =A 

760 RETURN 


77@ REM 

780 REM- mot OVER 

790 1F S<2 OR S=100 THEN FRINT"Impossible" ELSE S= 

S+1:P (8) =P (5-2) On en parle de plus en plus 
800 RETURN 


810 REM mais voici enfin quelque chose de concret. 


820 REM- mot ROLL 


SA@ PRINT" Impossible" LU Le programme Législatives vous transforme 
850 RETURN 

2 rene en élat-:major parisien ou en eitoyen actif 
880 SWAF P(I),P(I+1) L4 e 

B7@ NEXT ! car vous pourrez désormais 

700 RETURN à 5 

320 REM- mot PICK estimer vous-même 

950 IF S=100 OR F(S)>5 OR F(S)<1 OR S=0 THEN PRINT 


“Impossible” ELSE P(S)=P(P(S)) le nombre de siège(s) obtenu(s) 


94Q RETURN 


950 REM . À LA po, 

Sa A Re | par votre liste préférée... 

97@ IF S>1 AND NOT(I#="/" AND PF(S)z=@) THEN 1000 

980 PRINT"Impossible" ee 

008 RETÉON Olivier Arbey m 

000 IF I1$="+" THEN A=P(S-1)+P(S) 
IF 1$="-" THEN A=F(S-1)-P(S) 
IF 1#$="4" THEN A=PF(S-1)#«F(S) 
IF 1#="/" THEN A=P(S-1) /P(S) 
S=S-1:P(S)=A 
RETURN 
END 








10 REM Législatives, de Olivier Arbey 











69 , SPÉCIAL PROGRAMMES 
L'OI 77HS DÉCEMBRE 1985 








LÉGISLATIVES A DOMICILE 






































50 CLS:CLEAR 
60 INPUT"'Nom du département ":N# 

76 INFUT'Nombre de sièges à pourvoir ";NS 

80 INPUT"'Nombre de listes ":;NL 

90 INPUT"'Electeurs inscrits ";IN 

100 INFUT"Suffrages exprimés "3EX 

110 OFTION BASE 1: REM Indice de début des tableau 


MÉMOIRE 





x 
12@ DIM S(NL) ,P (NL) ,SG (NL) , NOM$ (NL ) 


130 REM 

149 REM---—-— Entrée des résultats----- 

150 REM Des affirmations de plus en plus 
164Q CLS: V=0 hs a et" 2 1 OS 


170 FOR I=i TO NL 
180 FRINT'"'Liste";:13:", suffrages "s::INPUT NOM#(I),5S 
(1) 


nombreuses sur les métiers de différents 


208 REN Vérification des entrées personna es vous sont proposées. 

220 V=V+S C1) Il vous est ensuite demandé de répondre 
230 REM à 

SENS CNRS a à certaines questions sur ce que 


260 F(I1)=190xS (1) /EX 
270 NEXT I 
IF V-EX<2Q THEN 50 


vous avez lu, ce qui ne manquera pas 
de mettre rudement 
à contribution votre mémoire ! 


Suffrages utiles 





EXQ=EX 
370 FOR I=1 TO NL 

380 IF F(I)<5 THEN EXS=EX-S(1) 
390 NEXT 1! 

400 REM 

410 REM Quotient électoral 

420 REM 

430 Q=EX/NS 

440 REM 

450 REM Froportionnelle 

4860 REM 

47Q FOR 1=1 TO NL 

IF PI) >= 5 THEN D=INT(S(1)/G) :NS=NS-D:SG(1)= 


Paul Duhr 5 
























NEXT I 
500 REM 
510 REM Plus forte moyenne 


320 REM 

S3Q T=Q 

540 IF NS=0 THEN 608 
590 FOR I=1 TO NL 

560 IF F(I)4S THEN 580 
570 UeS(1)/(SG(1)+1):1F U>T THEN H=1:T=U 
58 NEXT 1! 

6G(H)=66 (H)+1:NS=NS-1:GOTO 530 





ORDER INT ennemie meme PENSE TE 

650 FRINT:PRINT: 

660 PRINT'"'Inscrits 2: "s;IN 

670 FPRINT'"'Exprimes : "3EXO 

68@ PRINT"Participation : "}:PRINT USING "###.##"; 
108*EXQ/IN;: PRINT" %" 

690 PRINT:PRINT 

708 PRINT'"'Intitulé: Suffrages: % 
Sièges:" 












FOR 1=1 TO NL 
740 PRINT NOM$(I) TAB(15) STR#(S(I)); 
750 PRINT TAB(3Q) USING "H##.#H#":PUCI); 
76@ PRINT TAB(45) STR#$(SG(I)) 

77@ NEXT I 

780 PRINT:PRINT 

END 
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REM LOCATE X,Y:place le curseur ligne X,col.Y 


MEMOIRE 


DH MODE HE MEME DER EE DER 
# * 
* PF. DUHR * 
* FOUR LE SF *« 
MUR DE DEEE EME EEE EEE 


**x DONNEES #% 


140 DATA ALAIN,JULES, BERNARD ,ROBERT , GREGORY , SERGE, 
LUCIEN, PIERRE, FRANCIS , MARCEL , DAVID, STEPHANE, MAUR IC 
E,GILLES , ALBERT, FAUL, PATRICK, JULIEN,PHILIFPE, LOUIS 
150 REM 

160 DATA FOMPIER,MEDECIN, FOLICIER, INSTITUTEUR, BOUC 
HER, FACTEUR , CHAUFFEUR , EP ICIER, GARAGISTE ,FEINTRE , VI 
TRIER, PLOMBIER , MENUISIER , HALAYEUR , CASCADEUR , COMED 1 
EN 

178 DATA MINEUR, INGENIEUR, ELECTRICIEN, CHARCUT IER 
190 GOSUB Y380:REM PRESENTATION 

198 GOSUB S00:REM VARIABLES 

200 GOSUE S60:REM TIRAGE 

210 GOSUR 830:REM AFFICHAGE FHRAGES 

220 GOSUR 9SG:REM CHOIX QUESTIONS 

236 ON DR GOSUE 1370,1270 

240 GOTO 200 

250 REM 

260 REM ** ATTENTE D'UNE TOUCHE #** 

270 REM 

280 K$=INKEY#: XX=RND (1) 

290 IF K$="" THEN 280 ELSE RETURN 

300 REM 
310 REM 
.320 REM 
330 LL=LEN(TX#) 

340 FOR Il1=1 TO LL 

350 PRINT MID#(TX#,11,1)3 
360 NEXT II:PRINT: RETURN 
370 REM 
380 REM 
390 REM 
400 CLS 
41@ LOCATE 3,2 

420 PRINT "MEMOIRE..." 

430 LOCATE 9,1 

440 PRINT "IL S'AGIT DE LIRE UNE SUITE DE PHRASES" 
450 PRINT:PRINT'ET. DE REPONDRE ENSUITE AUX QUESTIO 
NS. 

460 LOCATE 21,2 

470 PRINT "AFPUYEZ SUR UNE TOUCHE POUR COMMENCER" 
480 GOSUB 260 : RETURN 

490 REM 
S00 REM 
510 REM 
520 NP=2 
530 DIM LF$(20) ,LM#(20) ,NOM#(15) ,SC (15) 
540 RETURN 
550 REM 
560 REM 
570 REM 
580 DR=@ 
590 FOR I=1 TO NP 

600 RESTORE 140:A= INT (RNDX20+1) 
610 FOR J=1 TO A 

820 READ F$ 

&43Q NEXT J 

640 FOR K=1 TO I=1 

650 IF P#=LP#(K) THEN DR=i 

660 NEXT K 

678 IF DR=1 THEN DR=@: GOTO 600 
680 LF#(1)=P# 

690 REM 

700 RESTORE 160: A=INT (RND#20+1) 
710 FOR J=1 TO 4 

720 READ M$ 

730 NEXT J 

740 FOR K=1 TO I-1 

750 IF M$=LM#(K) THEN DR=i 

760 NEXT K 


77@ IF DR=1i THEN DR=9:G0OTO 760 
780 LM#(I)=M# 


#*x TELESCRIFTEUR #* 


*xkk PRESENTATION Kk#% 


##x VARIABLES #*#% 


##*x TIRAGE *##% 





790 REM 
800 NEXT I 
81Q RETURN 
820 REM 


830 REM 


##** AFFICHAGE PHRASES ##x 


840 REM 

850 CLS 

860 FOR I1=1 TO NP 

870 TX#=LP#(1)+" EST "+LM#&(I)+"." 


889 


PRINT" 


“s:GOSUB 3S10:REM TELESCRIFTEUR 


890 PRINT:NEXT 1 


780 


REM 


910 FOR T=Q TO 2DA0OxNF:NEXT T 


920 


CLS 


93Q RETURN 


940 


760 


REM 
950 REM 
REM 


##* CHOIX QUESTIONS #%## 


97@ FOR 1=1 TO INT(NPF/4)+#+1 


980 


A=INT (RND#NP +1 ) 


990 P$=LP# (A) : M$=LMS# (A) 


1000 
18010 
1820 
1050 
1048 
1050 
1060 
107Q 
1080 
1290 
1100 
1110 
$ 

1120 
11350 
1149 
1150 
1160 
1170 
1180 
1190 
1200 
121@ 
1220 
12350 
$ 

1240 
1250 
1260 
127Q 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1550 
1360 
1370 
15:80 
1590 
1400 
141@ 
1429 
1430 
144Q 
1450 
1460 
1470 
1489 


B=INT (RND#2+1) 

CLS 

ON A GOTO 1040,1160@ 
REM 

TX$="QUEL EST LE METIER DE "+P#+" 9" 
GOSUB 310 
LOCATE 6,1 

FOR J=1 TO NP 
TX$="— "4LM$(J) 
PRINT" 

NEXT J 

PRINT: PRINT: PRINT: PRINT: PRINT" 


";:GOSUB 310:PRINT 


"se INPUT R 


IF R#<>M$ THEN DR=1:RETURN 
SC=SC+ (NP*x10) 

NEXT 1:DR=2: RETURN 

REM 

TX$="LEQUÉL EST "+M#+" 7" 
GOSUB 310 
LOCATE 6,1 

FOR J=1 TO NF 
TX$="— M4LP$(J) 
PRINT" 

NEXT J 

PRINT: PRINT: PRINT: PRINT: PRINT" 


“s:GOSUE 310:PRINT 
“sy: INPUT R 


IF R$<2>P$ THEN DR=1:RETURN 
GOTO 1130@ 

REM 

REM #4+ GAGNANT ### 

REM 

CLS:LOCATE 1,1 

LOCATE 12,5 

TX$= "SCORE: "+STRS# (SC) 

GOSUE 310 

NP=NP+1 

FOR T=Q TQ 2@0G:NEXT T 
RETURN 

REM 

REM *#* PERDANT ##% 

REM 

LOCATE 1,1 

CLS:TX#="VQOUS AVEZ FERDU.,.." 
GOSUR 310 

LOCATE 8,1:FRINT'"SOLUTION: " 
LOCATE 11,1 

TX$=P#+" ETAIT "+M#+"," 
GOSUE 319 

LOCATE 16,6 
PRINT'"SCORE: ";: SC 

1F SC>SC(15) THEN GOSUB 1620 ELSE FOR T=@ TO 


2OGG:NEXT T 


1490 
1508 
1510 
1520 
1530 
1540 
1550 
1588 
1570 
1580 


CLS: LOCATE 2,2: PRINT" RESULTATS “ 
REM 

PRINT 

FOR E=1 TO 15 

IF NOM#(E)="" THEN NOM$(E) =" 

PRINT TAB(4) NOM$(E) ; 

PRINT TAB(30) USING"####"3; GC (CE) 

NEXT E 

REM 


SC=0:NP=2 
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MÉMOIRE | 


1590 LOCATE 23,11:PRINT"'APPUYER POUR REJOUER" 1670 SC(15)=SC 

1600 GOSUE 260:RETURN 1680 REM 

1610 REM 1690 DR=@ 

162Q REM *+xx ENTREE SCORE *#*## 1700 FOR D=2 TO 15 

1630 REM 1710 IF SC(D-1)<SC(D) THEN F=SC(D-1):SC(D-1)=SC(D) 


1640 LOCATE 21,1: INPUT"ECRIVEZ VOTRE NOM: "3 NOM# (1 : SC (D) =F : AS=NOMS (D—1 ) : NOMS (D 1) =NOME (D) : NOMS (D) =A$ 
9) :DR=1 

1650 LOCATE 1,1 1720 NEXT D 

1660 IF LEN(NOMS(15))>15 THEN NOM$ (15) =LEFT# (NOMS ( 1730 IF DR=1 THEN 1690 

15) ,15) 1740 RETURN [| 





ITINÉRAIRE DU VRP 





Un VRP à huit villes à visiter pour terminer 
sa journée de travail, par le circuit le plus court ! 
Le nombre de villes considéré, assez faible, 


moins de dix, permet un algorithme exhaustif, 





À 


ans le programme, les villes sont numérotées 
de O à 7, V{R) est le n° de la ville dont le rang 
est R sur le circuit examiné (circuit pris dans les quel- 
que 71/2 = 2520 circuits fermés possibles passant 
une fois et une seule parmi les huit villes), à partir 
de la ville n° O (donc V(0) =0), et X(M,N) est la dis- 
tance entre les villes M et N. Les nombres V(1) à 
V(7) constituent une des 7!= 5040 permutations 
des entiers de 1 à 7. Les deux villes voisines de V(0) 
sont V(1) et V(7), et en convenant que l'on aura 
systématiquement V(1)<V(7), on choisit un sens 
de parcours particulier, ce qui a pour effet de divi- 
ser par 2 le nombre de cas à examiner. 
Enfin, le tableau des distances utilisé est : 
0:1:223 4565. 6 "4 
oi" OO 922931 1728 65.19 
fe ROC OPA TINIS. 6 
2 °.:22" 2450. "F0 267 4. 2 
JE SPORE OO 17 7e 
* 17.731014 ®0t19r LR 6 
* 8414 OC 17 197 0”°20 21 
75 15 24 bathadeorr Ores 
ol |: rs > 4 Ce © BE © Ce UE: Ne 
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Il ne reste plus qu'à amenuiser chaque fois le champ 
de boucles imbriquées successives. Les sommes de 
distances sont calculées de proche en proche, pour 
minimiser le nombre d'additions. Chaque fois que l'on 
tombe au-dessous du minimum obtenu précédem- 
ment, on met en mémoire les numéros V{} corres- 
pondant au nouveau minimum dans un vecteur W{() 
qu'il suffira d'éditer à la fin du calcul. 

Le résultat est affiché sous la forme d'un trajet, avec 
la distance totale parcourue. 

Commercialement vôtre. 


Pierre Barnouin 









100 DIM V{7),W(7),X(7,7) 
110 Z=1E+09:FO0OR 1=0 TO 6:FOR J=1+1 TO ZsREAD X(I,J 
)1X(J,1)=X(T,J):NEXT J:NEXT I 

120 REM SWAP À,B : échange le contenu des variable 
s A et B 

130 FOR I=1 TO 7:V(I)=I:NEXT I:FOR 1=2 TO 7:SW@4P VW 
CI),V(7):A=X(@,V(7)) 

140 FOR J=1 TO I-1:SWAP V(J) ,V(1):B=A+X(@,V(1)) 
150 FOR K=2 TO 6:SWAPF V(2) ,V(K):C=B+X(V(1) ,V42)) 
160 FOR L=3 TO 6:SWAP V(S) ,V(L) : D=C+X (V (2) ,VC3)) 
17Q FOR M=4 TO 6:SWAP V{4) ,V(M):E=D+X(V(3S) ,V(4)) 
180 FOR N=S TO 6: SWAP V(5) ,V(N):F=E+X(V(4) ,V(S5))+X 
(VOS), V(6))+X(V(8) ,V(7)) 

190 1F F<Z THEN Z=F:FOR H=l TO 7:W(H)=V(H):NEXT H 
200 SWAF VIN) ,V(S):NEXT N:SWAP V(M) ,V(4):NEXT M:SW 
AP VIL),V(S):NEXT L 

210 SWAF V(KI,V(2):NEXT K:SWAP V(J) ,V(L):NEXT J:SW 
AF V(I),V(7):NEXT I 

220 FOR H=0 TO 7:PRINT W(H);2NEXT H:PRINT TAB(3S)" 


| 
| 
| 
| 
| 







km :"37 
230 DATA 9,22,531,17,8,5,19,24,9,7,11,13,6,7,10,6,4 
121914,17,709919511585255219r8 E 






ANAGRAMMES 
OMPLÈTES 


Voici le moyen de réaliser toutes les anagrammes 
possibles de mots de six lettres au plus. En effet, 
une fois votre mot entré, le programme vous renvoie 


toutes les anagrammes, différentes, 
correspondant à votre choix. 


r 7 


4 





CLS 

NP=720 

DIM Y(NP),S$ (NP) ,Z# (NF) 
INPUT"Votre mot ";A% 

C=1 

FOR NELEN(A$)-1 TO i STEP -2 
M=N% (N+ 1) 

C=M#C 

NEXT N 


190 K=1 

119 FOR N=1 TO C 

120 T$="" 

1350 FOR 1=1 TO LEN(A#):Y(I1)=@:NEXT I 
149 FOR I=1 TO LEN(A#) 

159 X=INT (RND(1) #LEN(A#$) +1) 





Dalibard Æ 








IF X=Q THEN 150 
FOR J=1 TO I 

IF VY(J)=X THEN 150 
NEXT J 

YCI)=X 
Z$(I)=MID#(A$,X,1) 
NEXT I 

FOR I=1 TO LEN(A$) 
T$=T#+Z$ (1) 

NEXT ! 

FOR I=i TON 

IF T#=S$(1) THEN 120 
NEXT I 

S$CN)=TS: PRINT N;" 
NEXT N 


"3 SN) 
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PSEUDO-ASSEMBLEUR 


Ce logiciel a pour fonction d’utiliser l'éditeur 


de votre interpréteur Basie 


afin d’implanter plus facilement des routines en langage machine. 


1 REM Format d'utilisation des lignes (supprimer 1 
igne 1 pour utilisation) 


10 7D00 
‘ 7D02 
* 7D@S5 
" 7D08 
* 7D@C 
* 7D@E 
° 7D0F 
60008 END 
68910 REM 
60020 REM 
60050 REM 
60040 REM 
60050 REM 
60040 REM 
60278 CLS 
40089 REM 


86 FF 
B7 20 
8E @0 
10 SE 
3F 10 
39 


XX 


-LDA## 7F 

.-STA>$ 2036 
-LDX##$ 10 

-LDY## 10 

.-SUI #$ 10 

-RTS . 
-Fin du programm. 


Pseudo-Assembleur 


par Luc Fineau 


(c)L'Ordinateur Individuel 
et l'auteur 


Dump 


600970 INFUT'"'Adresse de départ : ";DEF 
60100 N=DEF 
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otre première tâche sera donc 

de trouver l'adresse du début 
de votre mémoire Basic, éventuel- 
lement à l'aide du Dump fourni 
(faire RUN 60070 ; taper E pour 
sortir), et de l’implanter à sa place 
dans le programme (variable CM). 
Pour loger une routine en LM (Lan- 
gage Machine), utiliser le format : 
ligne// /adresse/ /codes//com- 
mentaires/./ 
où : 


ligne : numéro de ligne Basic (10, 
20...) 
" : apostrophe (et pas REM) 
adresse : celle où est logée l'ins- 
truction LM, quatre caractères 
Hexa 
codes : ceux, en Hexa, de votre 
routine ; de un à quatre codes 
séparés par des espaces, le tout 
devant faire onze caractères. 
commentaires : soit les mnémo- 
niques de la routine, soit des com- 
mentaires ; zone de quinze carac- 
tères, à compléter par des espa- 
ces si nécessaire. 
Un exemple de routine à implan- 
ter est donné avec le programme 
(lignes 10 à 70). Nous pouvons y 
remarquer en 70 le « XX » qui 
sert à indiquer la fin des lignes en 
Pseudo-Assembleur. 
Dernière recommandation : les 
lignes en Pseudo-Assembleur doi- 
vent être seules et au début du 
programme. Enfin, pour implanter 
votre routine, faites maintenant 
RUN 60290 et admirez ! 

Luc Pineau M 


68110 GOSUB 60240 60:00 CM=RH2SA9:REM Début programme Besie 

6@12Q FOR T=Q TO 7 :P=PEEK (DEP+T):N=P: GOSUB 60249: 60310 REM 

NEXT T 60320 CM=CM+1 

60130 REM CSRLIN : retourne la ligne où se trouve 60330 L$="" 

le curseur 60340 FOR I=1 TO 4 

6014Q LOCATE CSRLIN,39:FOR T=Q TO 7: P#=CHR$ (FEEK (D 60350 L$=L#$+CHRS$ (PEEK (CM+I) ) 

EP+T)) 6036 NEXT I 

60150 IF ASC(PF#)<33 OR ASC(P$)2>126 THEN P$="." 6037@ L=VAL("&H"+L$) 

60160 FRINT P#$;3s: NEXT T:PRINT 40580 CM=CM+É6 

6017Q DEP=DEP+8 60390 1F FEEK(CM)<48 OR FEEK(CM) >70 THEN RETMEN 
60180 IF INKEY$="E" THEN 60200 60400 D$="" 

60190 GOTO 640100 60410 FOR 1=Q TO 11:D$#=D#$+CHR$ (FEEK(CM#1) D) 2027 2 
60200 PRINT"'Autre (O/N) ? " 60420 1=1 

60210 INPUT A$: 1F A$="0" THEN 60090 ELSE IF A$="N 60430 FOR E=1 TO 4 

" THEN CLS:END 60440 S$=MID$(D$,1I,2) 

69220 GOTO 640210 60450 IF S$=" " THEN 6051@ 

6025Q END 6046Q IF Sf="XX" THEN RETURN 

6024Q REM 60470 S=VAL("&H"+5#) 

60250 H$=HEX$ (N):REM Convertit N en Hexa 60480 FOKE L,S 

60260 IF PEEK(DEP+T)<&H1Q THEN H$="@Q"+RIGHTS$(H#,1) 60490 1=1+3 

:REM &H : préfixe de constante en Hexa 60500 LeL+1 

60270 PRINT H$;" ":; 60519 NEXT E 

6028Q RETURN 60520 CM=CM+34 

60299 REM Pseudo-Assembleur 60530 GOTO 62310 F 


VOTRE ORDINATEUR 
PENSE-T-IL ? 


La langue d’un pays, quel qu'il soit, On connaît également la fréquence 
présente un certain nombre de régularités des lettres en fonction de leur position 
statistiques qui sont à l’origine dans les mots, En français, les mots 

du développement d’une débutent le plus souvent par « p » 
branche particulière de ou par « e ». Maïs, pour 











l'étude des langages : caractériser une langue, 
la linguistique il faut également tenir 
mathématique. compte des successions 


de lettres : bigrammes 
ou autres polygrammes. 
Ainsi, le « q » est 

toujours suivi de « u », 
le « a » est le plus 


souvent suivi de « n », ete, 
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Par exemple, en français, 
la lettre la plus 
couramment utilisée 

est le «e » : en revanche, 
les k » ou le « w » ne le 
sont pratiquement jamais, 














| est possible de calculer de 
manière assez précise ces 
occurrences et de déterminer ce 
que l’on appelle un tableau de fré- 
quences relatives des bigrammes. 
Si l’on ne tient compte que des 
dépendances entre lettres voisi- 
nes, la langue sera décrite par une 
chaîne de Markov. 
Le programme proposé est fondé 
sur ces quelques principes sim- 
ples. Une première lettre est tirée 
au hasard en respectant la distri- 
bution de probabilités des lettres 
de début de mot (DATA ligne 
180) puis les suivantes sont éga- 
lement tirées au hasard, toujours 
en respectant les probabilités de 
transition (DATA des lignes 190 
à 240). La ligne 660 sert à véri- 
fier les DATA introduites, par 
obtention de AA = 10000. 
On a ainsi fourni à l'ordinateur ce 
qui lui manquait pour s'exprimer, 
du moins pourrait-on le croire. 
Jean-François Goux Æ 





REM Votre Ordinateur 

REM pense-t-il 7 

REM J.F. GOUX (1985) 

CLS:PRINT; "Votre Ordinateur pense-t-il 7?" 
INPUT"Un nombre de 1 à 65535 ":F 

CLS: RANDOMIZE F-52767 

PRINT "Fensée No "3; P:PRINT 

REM Chargement des données 

DIM A(24):DIM A$(24):DIM M(24):DIM B(24,24) 


FOR I=1 TO 24:READ A(I) 
NEXT 1! 

FOR 1=1 TO 24:FO0R J=1 TO 24 
READ B(1,J) 

NEXT J:NEXT 1 


FOR 1=1 TO 24:READ A$(I):NEXT I 








VOTRE ORDINATEUR PENSE-T-IL ? 


160 FOR I=1 TO 24:M(1)=0@ 
170 FOR J=1 TO 24:M(I)=M(I)+B(I,J)2NEXT J:NEXT 1 
180 DATA 697,377,100%,688,735,452,297,236,395,94,2 
83,608,179,221,1098,61,739,782,631,57,311,5,5,19 
198 DATA 3,23,35,14,3,13,30,2,117,2,54,17,130,0,26 
,1186,52,56,64,35,0,5,0,12,0,0,0,15,0,0,0,10,0,20, 
0,0,7,0,0,12,3,1,1,1,0,0,0,18,0,8,1,98,0,0,40,26,0 
:12,0,0,87,0,0,11,5,8,14,0,0,2,0,35,0,0,0,215,0,0, 
2,33,0,0,1,0,21,0,1,12,4,0,35,1,0,0,0 

200 DATA 53,14,100,96,66,33,14,1,16,12,141,113,242 
115,82,31,163,305,145,89,24,17,0,6,23,0,0,1,11,10, 
0,0,17,0,8,0,0,14,0,0,19,1,0, ,11,0,0,0,48 
,0,1,0,12,0,7,0,7,2,0,0,15 


,51,103,112,0,13,8,0,0,2, 
:0,0,0,0,0,4,0,0,0,@,101, 
:4,38,3,2,4,10,6,40,2,0,3 
,0,0,20,0,22,29,0,0,0,0,2 
220 DATA 30,2,60,80,124,1 
9,3,79,197,5,10,0,1,0,0,4 
64,0,17,3,47,22,11,119,1, 
.0,42,0,0,51,16,0,52,4,3, 
0,0,0,0,0,0,0,0,0,0,0,0,13% 
230 DATA 92,1,27,20,209,0,7,1,69,0,35,13,15,55,12, 
8,17,39,41,13,5,0,1,1,75,9,36,57,155,15,10,1,64,2, 
44,11,13,60,39,40,9,73,61,39,9,0,1,0,85,4,16,45,16 
8,5,2,4,103,1,:0,3,10,39,28,18,86,42,29,8,4,0,0,0, 
21,3,16,15,85,2,2,0,68,0,24,12,62,1,20,3,88,76,56, 
3 


24, STLEN, 
,2:29,38,1 


240 DATA 19,29,0,0,33,0,0,0,38,0,0,0,24,0,0,0,0,23 
,9,0,7,0,0,2,0, 
6,3,0,1,1, a 
8,1,3,1,0, [] 
0,9,0,0,3, a 
209, PES A,B,C,D,E,F,6,H,1,J,L,M,N,0,P,Q,R,S, 
, ’ , 
260 IF INKEY$#="S" THEN 350 
27@ X=0 
280 GOSUB 49 
290 GOSUB 489:GOSUB 360 
30@ 1F D=1 THEN 260@ 
X=X+1:GOSUB S570@:GO0OSUB 360 
IF Déi THEN 260 
IF D<>1 THEN IF X<4 THEN 310 
IF D<>1 THEN IF X>=4 THEN FRINT" “;: GOTO 269 
STOP 
REM Lettre ou espace 
D=1+1INT (SAND) 
IF D=i THEN D$=" ":PRINT D$; : RETURN 
IF D<>1 THEN RETURN 
REM Lettre de départ 
K=9 
E=1+INT(9973*RND) 
FOR 1=1 TO 24 
IF E>K AND EcC=(K+A(1)) THEN PRINT A$(L);:L=1:6G 
470 
K=K+A(I) 
NEXT 1 
RETURN 
REM Choix de la 2e lettre 
K=9 
E=1+1INT(M(L) #*RND) 
FOR J=1 TO 24 
1F E>K AND E<=(K+B(L,J)) THEN IF J<>L THEN PRI 
NT A$(J);:F=J:GOTO 5460 
530 IF E>K AND E<=(K+B(L,J)) THEN IF J=L THEN GOTO 
480 
540 K=K+B(L,J) 
55Q NEXT J 
560 RETURN 
570 REM Choix de la lettre suivante 
580 K=0 
590 E=1+INT{(M(F) #RND) 
60 FOR J=i1 TO 24 
610 IF E2>K AND E<=(K+B(F,J)) THEN PRINT A$(J)3;:F=J 
:60T0 64 
620 K=K+B(F,J) 
630 NEXT J 
640 RETURN 
650 STOF 
668 DIM A(S76):AA=D:RESTORE 190:FOR 1=1 TO 576:REA 
D A(I):AA=AATAUCI):NEXT I:FRINT AA 


1 

a 

a 
, 











CALCULETTE POUR 
NOMBRES COMPLEXES 


1 mr 








complexes, à partir du résultat de l'opération précédente et avee le nouveau nombre 
+ complexe de votre choix. À ne pas perdre surtout ! 





108 Af="?7+-#/":H=2: GOTO 150 

110 FRINT X3;3" i";Y,A$ 

120 REM INSTR(A$,B#$) : recherche la première occur 
ence de B$ dans A$% 

130 REM et renvoie la position à laquelle il y à c 


orrespondance 
140 B$#=INKEY#:H=INSTR(AS$,R#):1IF H<2 THEN 140 


150 W=1:PRINT B$;"(atib) à 7, b “5: INPUT U,V:ON H- 
i GOTO 170,160,190,180 

168 U=-U:V=-V 

17@ X=X+U: Y=Y+V: GOTO 110 

180 V=-V: W=URU+VKV 

190 Z=X#U-YXV: Va (Y#U+X#V) /U: X=Z/W: GOTO 110 = 





Pierre BarnouinM 
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ALLO ? 
BASE DE CONNAISSANCES ? 
A VOUS ! 



























cinq cents éléments maïs ce nombre est modulable aux lignes 140 et 150. 


La our créer une base de con- 
naissances, il suffit de donner 
les deux premiers éléments de la 


base et la question permettant de 
les distinguer. Si l'on veut rajou- 
ter un élément, il suffit de répon- 
dre aux questions en fonction de 
l'élément à créer, puis de donner 
celui-ci et la question le distin- 
guant de l'élément que le pro- 
gramme aura trouvé. 

Franck Bonbled 








120 REM INITIALISATION 
130 : 
















EXPERT 
BASE DE CONNAISSANCE * 


140 DIM OE$(500) ,PO$ (500) ,RO (500) ,PN# (500) ,RN (520) 
150 DIM RE$(500) 
160 EM=Q:NES$="" 











HORMONE DEMEURE DE DEEOHE DE DE MM DEEE EDEN 17Q : 
7@ : 180 : 
80 REM AUTEUR : BONBLED FRANCK 192 REM MENU 
90 REM za0 : 
210 CLS 


PRINT TAB(16) "æ#emxerx 


220 
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230 PRINT TAB(16)"# XPER #" 

24Q FRINT TAR(16)"##MRRENRAN! 

250 PRINT "BASE : ":;:NE# 

268 FRINT Création d'une nouvelle base" 
270 PRINT Accès disque" 

280 PRINT Création de nouveaux élément (s)" 
290 PRINT Recherche d'élément (s)" 

300 PRINT Fin du programme" 

310 INFUT"Votre choix s: "5; CH 

320 IF (CH<>3 AND CH<>14) OR EM=1 THEN 380 

330 PRINT "Attention, il n'y a aucune base" 

340 PRINT "de connaissance en mémoire !" 

350 FOR 1=1 TO 2@G0G:NEXT I 

360 GOTO 310 

370 : 

3580 ON CH GOTO 430,1150,680,680,1780@ 

390 GOTO 310 

400 : 

410 REM Création d'une nouvelle base 

420 : 

4530 CLS 

440 IF BM=0 THEN 520 

450 PRINT "Il y a déja une base de connaissance" 
460 PRINT “en mémoire." 

470 PRINT “Voulez-vous en créer une nouvelle 7? (0/ 
N) LL 

480 GOSUB 1750 

490 IF A$="N" OK A$="N" THEN 210 

500 CLS 

510 : 

520 PRINT TAB(10) "Création d'une base":PRINT: PRINT 
530 INFUT'"Nom de la base : ";NB# 

540 EM=i 

550 NG=1:NR=2 

560 PRINT "Entrez deux éléments" 

570 INPUT "i- ";R# 

580 IF LEN(R$)>29 THEN PRINT "Trop long":;: GOTO 57 
a 

590 RE$(1)=R$ 

688 INPUT "2- "3;R# 

610 IF LEN(R$)2>20 THEN PRINT "Trop long":;:G0T0 600 
620 RE$(2)=R$ 

630 CH=3:AD=1 

640 GOTO 920 

650 : 

660 REM Création ou recherche d'élément(s) 

870 : 

680 CLS 

690 IF CH=3 THEN PRINT TAB(15)"Création":GOTO 71@ 
700 FRINT TAB(15) "Recherche" 

710 CA=1 

720 PRINT GE$(CA)3;" O/N ?" 

750 GOSUB 1750 

740 1F Af<>"0O" AND A$<>"0" THEN 770 

750 IF FO$(CA)="0" THEN CA=RO (CA) : GOTO 720 

76D AD=RO(CA) :R#="0":G0TO 790 

770 IF PN#(CA)="Q" THEN CA=RN(CA) : GOTO 720 
780 AD=RN(CA): R$="N" 

790 PRINT "Elément : ";:RE#(AD);" " 

800 IF CH=4 THEN 1080 

810 PRINT "Est-ce l'élément à créer (O/N) 7" 
820 GOSUB 1750 

8530 IF A$="0" OR A$f="0" THEN 1089 

840 NO=NO+1:NR=NR+ 1 

850 IF R$="0" THEN PFO$(CA)="0G": RO(CA)=NG: GOTO 87 
[a] 

860 FN$(CA)="Q" : RN(CA)=NQ 

870 CLS 

880 FRINT TAB(10) "Création" 

89Q@ INPUT "Elément à créer ":R#$ 

900 IF LEN(R#) >20 THEN FRINT'"Trop long...";::GOTO 8 
3a 

910 RE$(NR)=R# 

920 FRINT'Quelle est la question permettant de" 
930 FRINT'"'distinguer +: " 

940 PFRINT"1- ";RE# (AD) 

950 PRINT'"'2- !"3RES#$(NR) 

968 INPUT " "330$ 

970 IF LEN(Q#)>30 THEN FRINT "Trop long";: GOTO 96 
] 

980 PRINT " "3; RE#(NR) 

390 QE+ (NO) =0+ 

1000 PRINT “ "sCOE#(NQ)s" O/N 7" 





101Q GOSUE 1750 

1020 IF A$<>"0" AND A$<>"0" THEN 1060 

1050 FO (NO) ="R": RO (NO) =NR 

1040 PN$ (NO) ="R!":RN (NO) =AD 

1050 GOTO 1080 

1806 FO$ (NO) ="RK":RO (NQ) =AD 

107 PN# (NO) ="R"s: RN (NQ) =NR 

1080 FRINT"Voulez-vous continuer (O/N) 

109Q GOSUE 1750 

1100 IF Af$f="0" OR A$="0" THEN 680 

1110 GOTO 210 

1120 : 

1130 REM Accès disque séquentiel 

1140 : 

1150 CLS 

1160 PRINT TAB(13) "Accès disque" 

1170 PFRINT'"Lecture ou Sauvegarde 7?" 

1190 R#F=INKEYS:1IF R$<>"L" AND R#$<2"L'" AND R#<2>"S" 
AND KR#<>"S" THEN 1180 

1190 IF R$="L" OR R$="L" THEN 1480 

1200 : 

1210 REM Sauvegarde 

1220 : 

1230 CLS 

124G FRINT TAB(14) "Sauvegarde" 

1250 1F EM=1 THEN 1300 

1268 PFRINT"I1 n'y a pas de base de connaissance" 
1270 FRINT'en mémoire." 

1280 FOR 1=1 TO 20@G8:NEXT I 

1290 GOTO 210 

1300 INFUT'Nom de la base ";ND# 

1310 REM Ouverture du fichier pour écriture sur di 
sque 

13:20 OFEN ND$# FOR OUTPUT AS #2 

1330 REM Ecriture séquentielle 

1340 FRINT#2,NE$ 

1350 FRINT#2,N0Q,NR 

1360 FOR I=1 TO NQ 

1370 PRINTH#2,0E#$(1)3;","sPO#$(I)5","SsRO(I)5", "ss PN#(I 
13", "32RN(I) 


‘1380 NEXT 1 


1390 FOR I=1 TO NR 

140@ PRINT#2,RE# (1) 

141@ NEXT I 

1420 REM Fermeture du fichier 

1430 CLOSE 

1440 GOTO 210 

1450 : 

1460 REM Lecture 

1470 : 

1489 CLS 

1490 PRINT TAB(15) "Lecture" 

1500 IF HM=Q THEN 1560 

1510 FRINT"'IL y a déjà une base de connaissance" 
1520 PFRINT'en mémoire." 

1530 PRINT"Voulez-vous lire ?" 

1540 GOSUB 1750 

1550 IF A$<>"QO" AND A$<>"O0" THEN 210 

1560 INFUT'Nom de la base ";ND$ 

1570 REM Ouverture du fichier pour lecture en mémo 
ire 

1580 OPEN ND$ FOR INFUT AS #2 

1590 REM Lecture séquentielle 

1600 INPUT#2,NE# 

1610 INFUT#2,N0Q,NR 

1620 FOR I1=1 TO NO 

1630 INPUT#2,QE#(1) ,PO#$(1) ,RO(I) ,PN#(I) ,RN(I) 
164Q NEXT I 

1650 FOR I1=1 TO NR 

166Q INPUT#2,RES$(1I) 

167@ NEXT I 

1680 REM Fermeture du fichier 

169Q CLOSE 

1700 EM=1 

171 GOTO 210Q 

1720 : 

1730 REM Saisie de (O)ui (Non 

1740 : 

1750 A$=INKEYS 

1760 IF A$<>"O0" AND A$f<>"0" AND A$<3>'"N" AND A$<>'"N 
" THEN 1750 

177Q RETURN 

1780 END [| 
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MAGIQUE 


Voici un Tictactoe qui vous changera des programmes de votre enfance ! 


10 CLS:L(@)=1: PRINT TAB(23) "TICTACTOE MAGIQUE":PR 
INT 

26 PRINT"'IL1 s'agit de totaliser 15 avec 3 chiffres 
"2 PRINT 

30 'PRINT"'Qui commence ? 1=VOUS 2=M0I" 

40 A$=INKEY#:1F A$="2" THEN 7Q ELSE JF A$<>"1" THE 
N 4Q 


50 GOSUB 25@:PRINT"Choisissez un chiffre libre":V= - 


V+i 

60 A=VAL(INKEY$#):1IF L(A) THEN 60 ELSE V(V)=A:L(A)= 
1 

70 GOSUB 250:1F M=0 THEN F=5-3#L(5):GOTO 230 

80 IF V=i THEN F=2#(V(1) MOD 2 )+(V(1)-1B)#((V(1) 
MOD 2)=@ ): GOTO 230 

90 F=0:FOR 1=1 TO M-1:FOR J=1+1 TO M:A=15-MCI)-M(J 
) 

108 IF A1 OR A>9 THEN 11Q ELSE IF L(A)=Q THEN F=A 
:G=1:GO0TO0 230 

11@ NEXT J: NEXT I:FOR I=1i TO V-1:FOR J=1+1 TO V:A 
=15-V(I)-V(J) 

120 IF A<1 OR A>9 THEN 130 ELSE IF L(A)=0 THEN F=A 
21I=V:J=V 

130 NEXT J:NEXT I:IF F THEN 230 

140 IF M=1 THEN F=1:D=2#%(V(1) MOD 2)+(V(2) MOD 2): 
ON D GOSUB 290,300,310:GOT0 230 

150 FOR A=1 TO 9:1F L(A) THEN 210 
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L e joueur et l'ordinateur choisis- 
sent alternativement des chif- 
fres de 1 à 9, chacun d'entre eux 
n'étant utilisé qu'une fois. Le pre- 
mier qui a trois chiffres totalisant 
15 a gagné. Bizarrement, ce jeu 
n'est autre que, vous vous en dou- 
tez, le célèbre Tictatoe, à cela près 
que les cases sont numérotées 
suivant un carré magique 3*3 tel 


que : 
2 9 4 

\ D 7 5 3 
\ / 6 1 8 


- La connaissance de ce 
détail vous assurera, 
le cas échéant, 
une supériorité 
confortable con- 
tre un adversaire 
humain. 
Cependant, on 
notera que le pro- 
gramme a l'outre- 
cuidance de ne 
prévoir 
aucune possi- 
bilité de gain 
pour son adversaire : n'a-t-il 
oublié aucun des 362880 cas 
possibles ? ; 
Pierre Barnouin M 





160 FOR 1=1 TO M-1:B=15-A-M(I):1F B<1i OR B>9 THEN 
200 ELSE IF L(B) THEN 200 
17@ FOR J=1+1 TO M:C=15-A-M(J):1F C<1i OR C>9 THEN 
190 
189 IF L(C)=Q0 THEN F=ûÂ: I=M:J=M:A=9 
19Q NEXT J 
208 NEXT I 
210 NEXT A:1F F THEN 230 
220 F=F+1:1F L(F) THEN 229 
2350 M=M+1:M(M)=F:L(F)=1:PRINT"Je joue : "“;F:1F G=0 
THEN 5@ 
24@ PRINT'"J'ai gagné avec ";M(I)3"+"sMCJ) 3 "+" sFg"= 
15" :END 
250 PRINT:PRINT'"Vous : ";:FOR I=1 TO V:PRINT V(I);3 
:NEXT 1 
260 FRINT TAB(22)"Libres :";:FOR I=1 TO 9:1F L(1)= 
G THEN PRINT l; 
27@ NEXT I:PRINT TAB(6@) "Moi :";::FOR 1=1 TO M:PRIN 
T MCI);:NEXT I:PRINT 
280 IF M+V=9 THEN PRINT TAB(28) "Partie nulle":END 
ELSE RETURN 
290 F=5+V(1)-V(2) : RETURN 
300 F=5-V(1)+V(2):F=F-2#4L(F) : RETURN 
310 IF V(1)+V(2)=10 THEN F=2:RETURN ELSE F=1@-(V(1 
)+V (2) ) /2: RETURN 

= 











AQUIN FÜTE 





En vue d'améliorer votre culture, nous allons travailler sur un proverbe gabonais 
désordonné... 


REM TAQUIN FUTE de F,0. LELAIDIER 
REM Initialisation 
CLS 
RANDQMI ZE 

DIM FO#(8),F#(8) 
FO#(1)="on ne pile" 
FO#E(Z2)="pas le mil" 
FO#(Z3)="avec une " 
F@#(4)="banane ” 
FO$(5)="molle sa 
P@# (6) =" bé 
FO#$(7)="Froverbe " 
Fa$(9)="gabonais 7?" 
FOR I=1 TO 8 
PH(1)=FO#(1) 

NEXT I 

xX=10 

X1=X 

Y=6 

Yi=Y 

REM Mélange 

GOSUE 570 

REM Affichage 

GOSUR 490 

REM #kkkex JEU ###%% 
E#=INKEY#S:1F R$="!" THEN 260 ELSE R=ASC(E#) 


IF R£<>71 AND R£?>72 AND R£2697 AND R£<>:66 THEN 


KEM Vrai=-1 Faux=0@ 
DX=(R=71)-(R=72) 
DY=(R=89) -(R=66) 
X1=X+DX:Y1=Y+DY 


IF X1<=0 OR Yi<s=Q OR X1:10Q OR Y128 THEN 26@ 


REM Fermutation 
GOSUE 420 

REM Affichage 
GOSUE 490 

FOR 1x1 TO 8 


e but du jeu est, bien entendu, 
de le remettre dans l'ordre par 
mouvement du « ? » du plateau. 
La règle de déplacement est sim- 
ple : la lettre déplacée permute 
avec la lettre symétrique du « ? » 
par rapport au centre, lettre qui 
vient à la place du « ? », lui-même 
se trouvant à la place de la lettre 
déplacée... Vous verrez, c'est plus 
facile à voir qu'à expliquer ! 
Les commandes sont : G pour 
gauche, H pour droite, Y pour haut 
et B pour bas. Vous pouvez modi- 
fier la taille du plateau (ici 8*10) 
mais en gardant des dimensions 
paires. 
Franck-Olivier Lelaidier 








380 
590 
400 
41m 
420 
450 


“ 
nr) 


IF F#(1)<2FO$(1) THEN 260 

NEXT I 

FRINT'GAGNE" 

STOQF 

REM #*x FERMUTATIONS *# 
F#(V)SLEFT#(PFE (Y) ,X—1) +MIDS(P#(9-Y) ,11-—X, 1) +MI 


D$(P#(Y) ,X+1) 


440 


P#(9-Y)=LEFTS(F#(9-Y) ,10-X) +MID# (P#(Y1) ,X1, 16 + 


MIDS (P#(9-Y) ,12=X) 





F#(Y1)=2LEFTS#S(P#$(CY1) ,X1—-1)+"7"+MID#(P#(YL) ,X1+1 


X=X1 i 
Y=Y1 ? 
RETURN 

REM %%% AFFICHAGE #x#% 

CLS 

PRINT" 


FOR I=1 TO 8 
."3FPO#(D):". 


FRINT" 


REM #xxx MELANGE ##%% 

FOR J=1 TO RND(1)#1@+1 

DX=INT(-2#RND (1)#CX<2>10)+RND(1)#(X<>1)) 
DY=Q 

X1=X+DX 

GOSUER 420 

GOSUE 490 

REM 
DY=INT(-2#RND (1) # (Y<28) +RND(1)#(Y<51)) 
Y1=Y+DY 

GOSUR 420 

GOSUER 49@ 

REM 

NEXT J 

RETURN 
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SHUTTLE 


Une fois à bord, vous vous trouvez devant un écran cathodique formant le tableau de 
bord d’un orbiteur fictif. 


(, 
HT A 
































près la demande d'informa- 

tions de vol apparaît un écran 
divisé par la ligne d'horizon. En 
haut à gauche se trouve la dis- 
tance du seuil de la piste et en 
dessous la position de la piste par 
rapport à l'axe de l'orbiteur : < à 
gauche, > à droite et + dans 
l'axe. En haut à droite, on peut lire 
l'altitude et en dessous la position 
de l'orbiteur par rapport à son plan 
de descente : Up haut et Down 
bas. Un beep vous avertira si votre 
altitude est trop faible. Sur la par- 
tie inférieure apparaît la piste en 
clignotement. 
Pour les commandes, nous 
avons : 
— 7 : montée en virant à gauche 
— 1 : descente en virant à 
gauche 
— 2 : descente dans l'axe 
— 9 : montée en virant à droite 
— 3 : descente en virant à droite 
— 8 : montée dans l'axe 
— —: descente faible 
— +: montée faible 
— * : pilotage automatique (com- 
mande la descente mais pas le 
positionnement dans l'axe); 
appuyer à nouveau sur * pour 
reprendre les commandes 
— G:à l'affichage de “GEAR” 
sort le train d'atterrissage 
— : : commande les aérofreins 
Si votre atterrissage est réussi, 
votre écran restera bloqué sur les 
dernières informations affichées. 

> Dans le cas contraire. 
L. et J.-C. Jamain = 


REM% Simulation de vol Shuttle +* 

20 REM* réalisé par J.C. Jamain * 

30 REM* juin 1985 * 

40 FI=3.141593 

5Q CLEAR 

68 CLS:L=96: AB$="Shuttle":N=LEN(ABS) : FOR Z=1 TO N: 

BC$=LEFT+$(AB$,Z):L=L*x,S 

7@ FOR V=i TO L:NEXT V:PRINT EC#:NEXT Z:FOR O=1 TO 
2@@G:NEXT Q 

80 CLS:PRINT ‘"# Information volx" 

90 PRINT:T=@:U=0:F=Q 

10Q INPUT'"'Direction Shuttle";F 

11@ INFUT"'Direction vent";Q 

120 INPUT'"Vitesse vent m/s";5s 

13Q O=(0-P)#(S/93) 

149 D=INT (RND(1) #16@) : Di=@:D2=0:H=1390:E=16 

15Q CLS 

16@ FOR A=Q TO 6@ 

17Q IF INKEY$="9" THEN H=H+10@ 

18G IF INKEY$="2" THEN H=H-49 

190 IF INKEY$="+" THEN H=H+S5 

200 IF INKEY$="-" THEN H=H-15 

21@ IF INKEY$#="S" THEN CLS 

220 IF INKEY$="4" THEN D=D+1@ 

230 IF INKEY$="6" THEN D=D-1@ 

24@ IF INKEY$#="7" THEN D=D+5:H=H+5 

250 IF INKEY$#="9" THEN D=D-5:H=H+5 

26@ IF INKEY#$="1" THEN D=D+5:H=H-20 

270 1F INKEY#="3" THEN D=D-S5:H=H-20 

280 IF INKEY$="#" THEN U=U+1 

290 IF U/2<2>INT(U/2) THEN H=Il 

300 E=INT(20000-(A*%x353, 4) ) : CE+INT (A%. 265) : I=INT (B 

*SIN(P1#4/1680)):D=(D#SIN(PI#*0/180))+D:N=E+1 

310 M=SIN(1.570796-ATN(H/1390%P1I/180) /SOR(1-HkH#PI 
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*P1/180/180/1390/1390)):R=D-E80 

320 Di=D-INT (CxM#M) +R: DZ2=D4+INT (CaMmaM) +8 
330 IF H>S00 THEN D3=D:D4=D 

FAQ IF H<=500 THEN GOSUR 660 

350 LINE (Q,E)-(160,E) 


36@ LINE (D1,C)-(D3S,N):LINE (D2,C)-(D4,N) 

370 IF D<S THEN 580 

380 IF D:155 THEN 580 

390 IF H<O THEN H=Q 

400 LOCATE 1,1:5PRINT"DIST":LOCATE 1,6: PRINT USING" 





HAN 5 E 
410 LOCATE 1,13:FRINT"ALT":LOCATE 1,17:PRINT USING 
RH H a + JE 
420 IF H£(I#.9) THEN LOCATE 2,14: PRINT "Down" 
430 IF H>(I*i.1) THEN LOCATE 2,14: PRINT "Up" 
440 IF HKCI*1.1) THEN IF H>(I#.9) THEN LOCATE 2.14 
: PRINT" "“ 
450 IF U/2€>INT(U/2) THEN LOCATE 2,14: PRINT'X " 
460 IF H<I*.8 THEN BEEF 
470 IF R€O THEN IF D2<80 THEN LOCATE 2,7: PRINT"<" 
4890 IF R>Q THEN IF D1>80@ THEN LOCATE 2,7: FRINT'>" 
490 1F Di<80 THEN IF D2>80 THEN. LOCATE 2,7: PRINT 
er e e_e 
508 1F H<70 THEN 1F F-@ THEN GOSUE 630 Comment exprimer la somme des diviseurs 
S10 IF H=0 THEN IF F=0 THEN 590 © ————— 
520 IF H=Q THEN IF B>0 THEN 590 7 
530 1F H=@ THEN IF DI>80 THEN 590 d’un nombre N donné 
540 IF H=0 THEN IF D2€80 THEN 590 S DS 6 
59 LINE (Dt,C)-(D3,N) ,@:LINE (D2,C)-(D4,N) ,@ en fonction des sommes des diviseurs 
560 IF H=Q THEN 689 SR ET PE, 
570 NEXT À © z © “ r 
580 CLS:FRINT"Vous ne pouvez plus vous poser ":GOTO des nombres inférieurs a N ? 
750 a 
590 FOR X=1 TO 10 
608 LOCATE 3,9: PRINT"Crash":FOR Z=1 TO 1OW:NEXT 7 
610 LOCATE 3,9: PRINT" ":FOR Ze TO 10:NEXT 2: 
NEXT X:GOTO 760 
628 END 


630 LINE (é60,13)-(1@0,13):LINE (1@0,13)-(100,25):L 
INE (100,25) -(60,25):LINE (68,25) -(60,17):LOCATE 3 
s 7: PRINT'"GEAR" 

640 IF INKEY#+="G" THEN F=isIiF F=i THEN LOCATE 5,9: 
PRINT" * 

650 RETURN 

668 D3S=D-INT ((A-40) #, 136) : D4=D+INT ( (A-4@) #. 1746) 
6476 RETURN 

680 LOCATE 3,1: PRINT'"Speed : ":W=1 

690 T=T+1:V=95/(2.718"(.11S%TxW))21F V<.@1 THEN V= 
@ 

708 LOCATE 3,9: PRINT USING"#H#.#";V:IF INKEY$=":" 
THEN W=1.7 

710 IF V>O THEN IF B>-3500 THEN R=R-(V#2,865):LOCA 

TE 1,6: PRINT USING"####"35 


720:1F W=1.3 THEN LOCATE 2,7: PRINT'»#" 

730 IF VrQ THEN IF E>-3500 THEN 469@ 

740 IF V>@Q THEN IF H<=-3500 THEN 590 

750 IF INKEY$<>CHR# (13) THEN 750 

760 CLS: INPUT “Voulez-vous un nouvel essai  (O/N) 
"sE$:1F E$="0" THEN 80 

770 END 





809 REM 

810 REM LINE (X1,YI)-(X2,Y2) : trace une droite du 
point X1,Yi au point X2,Y2 

820 REM (@,@) en haut à gauche, (169,30) en bas à 
droite 

830 REM LINE (X1,YI)-(X2,Y2),0 : idem mais efface 
la droite 

840 REM LOCATE X,Y : positionne le curseur à la li 
gne X colonne Y 

85@ REM 

86@ REM Adaptation 

870 REM 

880 REM Vitesse de calcul : 

89@ REM Soit K=(temps d'une boucle FOR/NEXT de 1 à 
12000) / 100 

900 REM ligne 169 : remplacer 6@ par 6@*#(2-K) 

710 REM ligne 130 : 93 —> Kx95 


nutile de gâcher votre jeunesse à chercher la solu- 

tion découverte par Euler. Je ne vous infligerai pas 
non plus sa formule, relativement complexe, mais 
uniquement ce petit programme qui établit une table 
des sommes des diviseurs des N premiers nombres. 
On peut s'y repérer grâce aux minima relatifs qui la 
jalonnent, minima égaux aux nombres premiers aug- 
mentés d'une unité... 


78Q KEM 
790 REM Instructions spécifiques 
Pierre Barnouin 
| 


920 REM ligne 300 : 353.4 -> K#353.4 et 0.265 —-: K 18 INPUT'Limite : ";L:CLS:DIM S(L) 
*0.265 20 S(N)=S:1J=0:M=1: P=N: S=Q: NEN+1: S(Q)E=N: IF N>L THEN 
930 REM ligne 660 : @.136 -> K*0.17%6 et 4Q -> Kx40 5@ 

(idem pour D3 et D4) TO S=S+MxS(F):J=J+1:F=P-J:1F F<0 THEN 20 
948 REM ligne 690 : 93 -> Kx9z | 40 S=S+MxS(P):M=-M:P=P-2xJ-1:1F F<Q THEN 20 ELSE 
950 REM ligne 149 : multiplier RND par le nombre d [a] 
& points d'une ligne d'écran FA 50 FOR 1=i TO L:PRINT S(I):;:NEXT I:END 
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A CHEVAL 
SUR L'ÉCHIQUIER 


Le problème du cheval qui doit parcourir tout l'échiquier a fait plancher des 
générations d'écoliers. Si le cheval va dans les cases qui ont le moins de sorties, ça 
marche, Mais ne me demandez pas pourquoi ! 
































François Dupin M 


240 * PARCOURE----S=-- eme 

250 NJ=1 

260 PX=INT (RND (1) NC) +1: PY=INT (RND (1) #NL) +1 

270 LOCATE PX#3,PY#2: PRINTUSING"##";NJ; 

288 T(PX+ZE,PY+ZE)=-1 

290 DF=-1:WT=9999 

309 FOR D=@ TO 7 

318 DX=PX+DX (D) : DY=PY+DY (D) 

320 IF T(DX+ZE,DY+ZE)<=0 THEN 370 

330 T(DX+ZE,DY+ZE)=T(DX+ZE,DY+ZE) -1 

340 LOCATE DX+*3,DY#2: PRINT"<"; : PRINTUSING"#"5;T (DX+ 

ZE,DY+ZE)-1; 

350 IF T(DX+ZE,DY+ZE)<WT THEN WT=T(DX+ZE,DY+ZE) : DF 

=D 

360 IF T(DX+ZE,DY+ZE)=WT AND INT(RND(1)#2)=0 THEN 

WT=T(DX+7ZE,DY+ZE) : DF=D: BEEP 

37@ NEXT D 

390 IF DF=-1 THEN 449 

390 NJ=NJ+1 

408 PX=PX+DX (DF) : PY=PY+DY (DF) 

418 LOCATE PX43,PY*%2: PRINTUSING"##"; NJ; 

GOTO 288 

LOCATE @,22:PRINT"ON RECOMMENCE ? “;:R$=INPUTS$ 

(1):1F R#<>"N" THEN 89 

450 DATA -1,-2,1,-2,2,-1,2,1,1,2,;-1,2;-2315-29"1 

Le rermnéersanmse en cerner tr qrmaneveeven put tre tee ones > 
HRHKAXETERMINEX# XX | | 


CHEVAL 


DEFINT A-Z 
CLS 
 TABLEAU DEPLACEMENT CHEVAL —--—- 
FOR 1=0 TO 7 
READ DX(I1),DY(I) 
NEXT 
NL=8:NC=8: ZE=2: DIM T (NC+2%ZE , NL+2#7E) 
CHARGE NOMBRE DE VOISINS 
FOR Y=1 TO NL 
FOR X=1 TO NC 
T{X+ZE , Y+ZE) =1 
LOCATE X#3,Y#2:PRINT "QD"; 
NEXT X 
NEXT Y 
FOR Y=1 TO NL 
FOR X=1 TO NC 
FOR D=0 TO 7 
DX=X+DX (D) : DY=Y+DY (D) 
IF T(DX+ZE,DY+ZE)>@ THEN T(X+ZE,Y+ZE)=T(X+ZE,Y 
+ZE) +1 
200 LOCATE X#3,Y#2: PRINT "< "3: :PRINTUSING"#"3;T(X+ZE, 
Y+ZE)—1 
219 NEXT D 
22@ NEXT X 
230 NEXT Y 
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